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I. 


INTRODUCTION 


A.  DEFINITION  OF  THE  PROBLEM 

It  is  often  observed  that  most  of  strategic  problems  are 
analyzed,  discussed,  and  solved  by  many  decision  makers.  The 
existence  of  multiple  users  have  created  a  number  of 
problems.  First,  it  is  difficult  to  physically  reunite  all 
decision  makers  in  a  geographic  location.  It  is  even  more 
problematic  in  finding  an  appropriate  time  for  all  the  group 
members.  Second,  the  success  of  a  group  decision  making 
process  relies  on  the  skillfulness  of  the  group  leader. 
Unfortunately,  the  quality  of  the  group  leader  varies  from 
one  negotiator  to  the  other,  and  from  one  situation  to  the 
other.  In  a  military  decision-making  context,  this  problem 
becomes  even  more  complicated  if  one  considers  the 
increasing  complexity  of  the  technological  aspect  of  warfare 
and  uncertainty  regarding  political  issues. 

This  research  proposes  a  computer-based  group  decision 
support  system  that  attempts  to  resolve,  or  at  least  reduce, 
the  problems  enumerated  above.  It  designs  and  implements  a 
microcomputer-based  DSS  that  allows  group  members  to 
remotely  and  sequentially  participate  to  collective  decision 
problems.  In  particular,  the  proposed  DSS  is  an  expansion  of 
a  DSS  based  on  mult  iob.ject  i  ve  decision  methods,  is 
implemented  in  a  local  area  network  using  a  bus  architecture 
and  the  Carrier  Sense  Multiple  Access  with  Collision 
Detection  (CMSA/CD)  protocol.  The  CMSA/CD  protocol  is 
known  by  its  relatively  good  performance,  simplicity  of 
implementation,  and  inherent  system  reliability.  Such  a 
protocol  allows  control  of  collective  information  exchange 
and  data  routing  among  group  decision  members. 

The  use  of  such  a  group  DSS  distributed  in  time  and  in 
space,  is  expected  to  eliminate  the  physical  presence  of 


ViVl*  ■  1  ■>  V' 
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group  members  and  the  need  of  scheduling  meetings.  More 
important,  the  proposed  distributed  DSS  provides  a  objective 
and  flexible  framework  to  integrate  organizational  norms  and 
constraint  into  the  decision  situation. 


B.  SCOPE  OF  THE  RESEARCH 

This  research  does  not  attempt  to  discuss  the  already 
large  and  interdiscipl inary  literature  on  group  decision 
making.  It  attempts  to  expand  some  of  the  work  in  group 
decision  support  systems  outlined  by  CRef.  1  to  33  Two  major 
expansions  include  the  possibility  for  the  user  (i)  to 
direct lv  assess  his  preferences  in  cardinal  terms,  and  (ii) 
to  allow  division  of  evaluation  tasks  according  to 
individual  expertise.  In  particular,  this  research  primarily 
focuses  on  the  software  design  and  implementation  of  the 
networked  micro-computer-based  group  DSS  operating  under  a 
cooperative  environment.  However,  the  modular  approach 
adopted  for  the  proposed  DSS  would  make  it  possible  to 
expand  the  system  to  more  complex  form  of  group  decision 
situations  found,  for  example,  in  military  strategic 
planning. 

C.  ORGANIZATION  OF  THE  THESIS 

Section  II  outlines  basic  definitions,  concepts  and 
architectures  related  to  group  decision  making  under 
computer-based  settings.  It  emphasizes  the  communications 
aspects  among  group  members  via  computerized  media.  Chapters 
III,  IV,  V  and  VI  successively  discusses  the  characteristics 
of  the  components  of  the  group  DSS.  Two  multiple  criteria 
decision  methods  are  presented  in  III. A.  Four  techniques  of 
aggregation  of  preferences  are  defined  in  III.B.  The  multi¬ 
window  interface  has  been  adopted  for  the  GDSS  interface 
(section  IV. A).  Data  definitions  and  dictionaries  are 
described  in  section  V.  Section  VI  addresses  special 


applications  of  the  communications  modules.  Some 
observations  on  the  development  process  of  the  GDSS  are 
reviewed  in  section  VII.  Two  examples  of  remote  multiperson 
decision-making  in  military  strategic  planning  are  analysed 
in  section  VIII.  They  illustrate  the  use  of  the  GDSS  to  the 
selection  problem  of  navy  ships. 
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A  FRAMEWORK  FOR  IMPLEMENTING  REMOTE  MULT I PERSON  GROUP 
DECISION  SUPPORT  SYSTEMS 

A.  DEFINITIONS  AND  BASIC  CONCEPTS 
1.  Definitions  of  group  DSS 

A  collective  decision-making  process  can  be  viewed 
as  a  decision  situation  in  which  (i)  there  are  two  or  more 
persons,  each  of  them  character i zed  by  his  or  her  own 
perceptions,  attitudes,  motivations,  and  personal  it ies,  (ii) 
who  recognize  the  existence  of  a  common  problem,  and  (iii) 
attempt  to  reach  a  collective  decision  CRef.  ID. 
Furthermore,  the  group  can  interact  simultaneously  (i.e.  , 
poo led- interdependent  mode)  or  make  individual  decisions 
separately  and  then  confront  and  discuss  the  results 
(i.e.,  sequent ial-interdependent ) . 

One  can  observe  three  broad  types  of  group  decision 
making:  a  single  decision  maker  acting  in  a  collective 
decision  environment,  non-cooperat i ve  decision  making,  and 
cooperative  decision  making. 

In  the  group  decision-making  situation  with  one 
person,  a  particular  decision  maker  ultimately  makes  the 
decision  and  assumes  responsibility  for  his  line  of  action. 
However,  the  decision  can  be  regarded  as  a  collective  one 
because  of  the  existence  of  a  dense  network  of  influences 
that  surrounds  this  single  decision  maker.  In  fact,  other 
participants  in  the  decision  maker’s  organization  can  either 
support  or  act  against  the  decision.  Thus,  the  behavior  and 
attitudes  of  other  people  who  are  indirectly  involved  in  the 
decision-making  process  should  be  analyzed. 

In  the  non-cooperat i ve  decision  situat ion, the 
decision  makers  play  the  role  of  antagonists  or  disputants. 


Conflict  and  competition  are  common  forms  of  non-cooperative 
decision-making.  While  the  former  represents  a  situation  in 
which  disputants  seek  to  hurt  their  opponents  to  pursue 
their  own  interests,  the  latter  is  character i zed  by  the 
facts  that  each  competitor  is  an  action  candidate,  and  is 
trying  to  outperform  others. 

In  a  cooperative  environment,  the  decision  makers 
attempt  to  reach  a  common  decision  in  a  friendly  and 
trusting  manner,  and  share  the  responsibility.  Consensus, 
negotiation,  voting  schemes,  and  even  the  recourse  to  a 
third  party  to  dissolve  differences  are  examples  of  this 
type  of  group  decision  making. 

Also,  the  literature  in  decision-making  describes 
two  types  of  decision  situations  involving  more  than  one 
user:  pooled  interdependent  and  sequential  i nterdependent . 
In  a  pooled  decision— making  situation,  decision  makers 
reunite  together  to  form  a  more  or  less  homogeneous  group, 
and  attempt  to  resolve  a  collective  problem  simultaneously. 
Elsewhere,  in  a  sequential  interdependent  situation,  members 
of  the  group  can  attack  the  collective  problem  at  different 
periods  in  time,  looking  at  different  decision  angles. 

Another  classification  of  group  problem  solving 
approach  found  in  the  literature  is  the  distinction  between 
content -or iented  and  process-oriented  approaches.  The  first 
approach  focuses  on  the  content  of  the  problem,  attempting 
to  find  an  optimal  or  satisfactory  solution  given  certain 
social  or  group  constraints,  or  objectives.  By  contrast,  the 
second  approach  is  based  on  the  observation  that  the  group 
goes  through  certain  phases  in  the  group  decision-making 
process,  and  on  the  belief  that  there  could  be  an  arranged 
way  to  effectively  deal  with  these  phases. 

When  a  collective  decision  fails,  it  becomes 
necessary  for  the  participants  in  the  group  problem  solving 
to  start  bargaining  or  negotiating  until  a  consensus  is 


found 


While  bargaining  involves  discussion  within  a 
specific  criterion  or  issues,  negotiation  includes  many 
criteria  or  issues  in  the  discussion  and  search  for 
consensus. 

2.  flssurwpt  ions 

Without  loss  of  generality,  the  cooperative  multiple 
criteria  group  decision  support  system  implemented  in  this 
thesis,  is  a  DSS  that  (i)  contains  MCDM  and  supporting 
models  in  the  individual  Model  component,  and  <ii)  is  able 
to  support  multiple  decision  makers  via  a  Group  DSS  to  reach 
a  consensus  in  a  cooperative  environment. 

Under  certain  decision  circumstances,  MCDM  can  play 
a  crucial  role  in  supporting  group  decision-making : 

(1)  Due  to  interpersonal  differences,  the  existence  of 
multiple  and  conflicting  objectives  is  substantially 
more  dominant  in  group  decision-making  than  in 
single  person  decision-making; 

(2)  Subjective  and  qualitative  assessments  seem  to  play 
a  more  crucial  role  in  group  than  in  single  user 
decision-making.  It  has  been  observed  that  it  is 
relatively  easy  for  decision  makers  to  agree  upon 
problems  that  have  objective,  quantifiable  and 
well-defined  attributes.  Conversely,  decision  makers 
tend  to  disagree  upon  attributes  that  require 
subjective  and  qualitative  assessments.  Furthe* — 
more,  in  group  decision-making,  in  addition  to  the 
evaluation  of  the  situational  problem,  decision 
makers  invariably  attempt  to  evaluate  and  the 
decision  analyses  of  themselves  and  others. 

(3)  The  simplicity  of  MCDM  outputs  makes  it  easier  to 
communicate,  coordinate  and  aggregate  individual 
analyses  in  the  group  decision-making  process. 

(4)  The  process  often  plays  a  more  decisive  role  than 
the  content  in  group  problem  solving.  MCDM  provide  a 
simple  but  structured  framework  for  controlling  the 
decision-making  process,  i.e. ,  assessment  of 
alternat i ves,  assessment  o~  evaluation  criteria, 
selection  of  an  appropriate  algorithm  for  assessment 
of  preferences,  and  search  for  a  solution  or 
compromise; 

The  division  of  decision  processes  into  four  stages 
also  allows  alternate  utilization  of  both  objective 
optimization  and  subjective  evaluation. 


(5) 


<6) 


The  iterative  use  of  the  MCDM  processes  would  permit 
integration  of  predecision  and  postdecision  phases 
in  the  habitual  decision  phase. 


Specifically,  the  Co-oP  DSS 
research  attempts  to  support  the 
situat ion: 


discussed 
fol lowing 


in  this 
decision 


(1) 


(2) 


(3) 


<4) 


(5) 


(6) 


(7) 


There  are  multiple  users  or  decision  makers.  They 
may  share  an  equal  weight  or  have  an  unequal  or 
' hierarchical ly’  distributed  weight  correspond ing  to 
a  particular  decision-making  context. 


The  group  shares  a  common  set  of  feasible  decision 
alternat i ves.  From  this  set  of  alternatives,  the 
decision  makers  can  either  select  one  or  more 
alternat i ves,  or  rank  them  according  to  a  given  set 
of  criteria. 


Each  decision  maker  may  have  personal  objectives 
that  reflect  a  priori  values  and  as  piration  levels. 
Objectives  are  concretely  expressed  by  criteria  or 
attributes  that  are  discrete,  and  at  least  ordinally 
measurable.  Due  to  personal  differences,  individual 
decision  outcomes — as  opposed  to  acollective 
decision  outcome  that  the  group  is  trying  to  reach 
an  agreement  on — often  differ  from  one  decision 
maker  to  the  other. 


The  decision  makers  can  be  geographically  dispersed 
and  not  required  to  log  into  the  system  at  the  same 
time.  Via  a  distributed  computer  network  system, 
they  can  communicate  to  others  either  sequentially 
or  in  an  on-line  mode. 


The  decision  makers  interact  in  a  cooperative  manner 
and  in  a  trusting  environment.  The  system  does  not 
handle  attempts  to  cheat  or  to  seek  coalition  within 
sub-groups. 

The  decision  makers  can  either  work  closely  together 
by  forming  a  homogeneous  group  that  uses  a  single 
decision  support  system,  or  work  independent ly  and 
then  proceed  to  a  multilateral  assessment  of  the 
problem. 

The  decision  makers  can  segment  a  group  decision 
problem  into  (hierarchical ly)  sequential  single  user 
decision  problems  according  to  individual  expertise 
and  responsibility. 
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3.  Communications  Issues  in  Distributed  Decision  Waking 

In  the  context  of  a  distributed  group  decision 
making,  the  demands  for  information  exchange  are  marked  by 
certain  character ist ics  that  should  be  considered  in  the 
design  of  communications  capabilities.  These  characterist ics 
could  be  best  expressed  by  the  requirements  of  having 
information  exchanges  that  are  (i)  format -transparent,  (ii) 
either  constrained  or  unconstrained,  and  (iii)  evolving 
throughout  the  decision  phases. 

a.  Need  for  Format-Transparent  Information  Exchange 
The  demand  for  and/or  generation  of  information 

among  decision  makers  can  take  a  variety  of  formats,  ranging 
from  unstructured  and  written  notes  to  structured  and 
numerical  tables  CRef.  4  3.  The  most  complex  form  of  traffic 
is  the  situation  in  which  decision  makers  simultaneously 
require  information  exchanges  on  different  subjects  from 
different  members  using  complicated  combinations  of 
input /out  put  formats.  It  would  then  be  necessary  to 
identify,  classify  and  convert  information  character i zed  by 
various  individual  formats  into  standard  message  formats, 
including  the  creation  and  maintenance  of  information 
related  to  group  problem  solving  techniques,  such  as  aggre¬ 
gation  of  preferences  which  requires  some  standardized 
inputs  from  individual  results. 

b.  Limited  versus  Free  Information  Exchange 

In  some  group  decision  situations,  it  is 
conceivable  that  all  shared  information  is  ’public’  in  that 
every  member  of  the  decision  group  has  the  right  to  access 
any  information  that  is  sent  by  one  member  of  the  group  to 
another,  whereas  in  some  other  decision  situations, 
individual-to-individual  or  private  message  transfers  are 
authorized  CRef.  5  3.  Thus,  the  creation,  (statistical) 

maintenance  and  storage  of  message  routing  activities 
remains  crucial  in  enforcing  group  norms  concerning  the  type 
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of  information  sharing  (e. g. ,  consensually  predefined  by  the 
group  prior  to  the  group  decision-making  process,  or  moni¬ 
tored  by  the  mediator. 

c.  Evolving  Pattern  of  Communication  Requirements 

The  requirements  for  information  sharing  evolves 
through  various  phases  of  the  group  decision-making  process. 
For  example,  CRef.  6  1  argues  that  a  group  problem  solving 
phase  that  emphasizes  search  and  innovation  requires  more 
spontaneity,  and  therefore  an  open  communications  pattern; 
whereas,  bargaining  activities  that  induce  a  preference  for 
deliberate  control  of  information  exchange  would  be 
facilitated  by  using  individual— to— individual  communication 
channe 1 s. 

Furthermore,  empirical  studies  have  shown  that, 
under  certain  circumstances,  communication  channels  can 
escalate  conflict  CRef.  7  1.  While  encouraging  information 
exchange  between  group  members  is  often  recognized  as  an 
effective  strategy  to  resolve  individual  differences, 
eliminating  communication  channels  has  shown  its  effective¬ 
ness  in  preventing  deteriorat ion  of  rel at i onsh i ps.  While  the 
decision  to  encourage  or  discourage  communication  between 
decision  makers  depends  on  a  number  of  unpredictable 
situation-dependent  factors,  the  GDSS  communications  compo¬ 
nent  should  be  designed  in  such  a  way  that  it  can 
accommodate  various  communications  needs  and  changes  during 
the  group  decision-rnaking  process.  In  other  words,  the 
pattern  of  communications  protocols  should  vary  according  to 
the  dynamics  of  the  group  decision-making  process. 

4.  The  Role  of  the  Communications  Component 

One  of  the  roles  of  the  communications  component 
that  emerges  from  the  literature  is  that  it  makes  it  easier 
for  each  member  of  the  group  to  electronical ly  communicate 
without  having  to  be  concerned  about  detailed  and 
complicated  protocol  procedures.  This  issue  of  user 
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transparency  is  particularly  crucial  given  the  diversity, 
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and  consequently  the  complexity,  of  the  communication 
requirements  and  facilities. 

However,  the  effort  to  obtain  ease  of  communication 
access  is  not  unique  to  the  design  of  group  DSS.  Rather,  it 
has  always  been  one  of  the  most  important  objectives  of 
computer  networks  design.  Yet,  one  can  identify  at  least 
three  roles  that  are  specific  to  a  communications  system  in 
group  problem  solving.  fit  different  phases  of  the 
distributed  decision  process,  the  communications  system  can 
play  the  role  of  a  coordinator,  a  detective,  or  an  inventor. 

a.  The  Coordinator  Role 

Most  problem  solving  activity  begins  with 
situation  analysis  and  problem  definition.  Situation 
analysis  is  character i zed  by  a  (common)  recognition  that 
there  exists  an  urgent  and  important  problem  to  be  solved. 
Once  identified  in  the  situation  analysis,  a  problem  is 
transformed  in  the  problem  definition  phase  in  such  a  way 
that  solutions  can  be  generated,  analyzed  and  selected. 
CRef.  8  3  and  CRef.  9  3  emphasize  that  the  success  of 
information  gathering  and  problem  definition  relies  on  the 
ability  of  the  group  to  eliminate  mistrust  and  threat  that 
could  cause  group  participants  to  withhold  or  distort 
information.  Walton  CRef.  6  3  suggests  that  by  installing  a 
communication  medium  that  follows  some  norms  of  fairness 
(e. g. ,  equality  of  participation,  preserving  autonomy), 
information  exchange  can  be  more  abundant  and  accurate.  The 
communication  component  should  thus  coordinate  various 
protocols  to  engender  part icipants’  confidence.  Such  proto¬ 
cols  could  include  the  ones  that  <i)  assure  each  member  can 
successively  broadcast  his/her  ideas  given  a  equal  amount  of 
time,  or  <ii)  support  teleconferencing  to  synchronize 
arguments. 
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b.  The  Detective  Role: 

A  decision  maker's  analysis  could  be  distorted 
by  (i)  the  individual’s  attempt  to  ’spy’  on  others 
activities,  or  <ii)  the  influence  of  some  members  who  try  to 
take  over  an  individual’s  responsi bi 1 ity.  The  communicat ions 
component  should  then  play  the  role  of  detective  to  prevent 
unwanted  data  exchange  or  temporarily  disable  all  links,  or 
prevent  malicious  modification  of  public  data.  Concurrent ly, 
decision  makers  tend  to  delay  sending  their  individual 
results.  The  communications  component  should  press  its  users 
to  submit  opinions  before  a  given  due  date. 

From  a  general  perspective,  the  detective  role 
consists  of  enforcing  communicat ions  protocols  previously 
defined  to  drive  the  collective  decision-making  process. 

c.  The  Inventor  Role: 

The  inventor  role  is  an  extension  of  the 
coordinator  role.  Given  the  complex  nature  of  a  collective 
decision  problem  and  the  diverse  and  unpredictable  decision 
approaches  adopted  by  the  participants,  the  communications 
component  should  be  able  to  detect  incompatible  information 
exchange,  and,  if  possible,  propose  alternate  formats.  The 
inventor  role  implies  (i)  potential  for  tolerance  to 
uncertainty  in  requests  and  needs  for  data  transfers,  and 
(ii)  continued  search  for  communications  operations  that 
facilitate  information  exchange  CRef.  10  3.  Thus  protocols 
for  distributed  GDSS  should  be  able  to  analyze,  evaluate  and 
determine  the  content  of  transmissible  information,  rather 
than  simply  perform  a  transport  task. 

The  f unct ions  of  the  communications  component 
are  at  least  twofold.  First,  it  monitors  a  broad  spectrum  of 
data  transports  during  a  group  problem  solving  process.  This 
transport  function  ranges  from  information  exchange  to 
information  hiding,  from  selective  and  personalized  routing 
to  collective  diffusion  of  data  from  public  to  private 


information.  Second,  it  coordinates  various  communicat ions 
activities  (i.e. ,  init ial i zat ion,  operation  during  consensus 
search,  negotiation  and  mediation)  by  making  it  transparent 
to  the  members  of  the  decision  group. 

B.  AN  ARCHITECTURE  FOR  GROUP  DSS 

Co-oP  is  a  network  of  microcomputer-based  process-dr i ven 
DSS  for  cooperative  multiple  criteria  group  decision  making 
(Figure  1).  Each  participant  of  the  group  decision  making 
process  has  his  own  individual  DSS  whose  model  base  is  based 
on  multiple  criteria  decision  methods  (MCDM)  and  other 
personal  decision  support  tools.  The  group  DSS  contains  a 
set  of  aggregation  of  preferences  techniques  and  consensus 
seeking  algorithms  that  can  be  used  in  conjunction  with 
individual  MCDM. 

The  individual  DSS  are  linked  together  by  a  microcompu¬ 
ter  local  area  network.  The  latter  support  both  locally  and 
remotely  (via  modem)  linked  individual  workstat ions. 
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III.  THE  MODEL  COMPONENT 


The  Model  Component  of  a  DSS  is  expected  to  support  the 
user  perform  the  following  problem-solving  activities: 
projection,  deduction,  analysis,  creation  of  alternatives, 
comparison  of  alternat i ves,  optimization  and  simulation 
CRef.  11  1.  The  literature  in  DSS  often  identifies  three 
modules  in  a  DSS  model  component :  the  model  base,  the  model 
base  management,  and  the  interface  unit.  This  chapter 
describes  the  three  components  of  the  group  DSS. 

ft.  THE  MODEL  BftSE 

The  Model  Base  of  a  DSS  consists  of  a  library  of 
decision  models  that  help  the  group  members  perform 
individual  and  group  analyses. 

1 .  The  Model  Base  for  Individual  Decision  Making 

In  addition  of  the  possibility  for  the  user  to 

directly  enter  his  pref erences/assessments  to  the  system  and 

if  needed,  share  them  to  other  group  members,  the  purpose  of 

the  Co-oP  MCDM  model  base  is  to  provide  the  decision  makers 

with  a  set  of  decision  models  that  can  solve  the  most  common 

types  of  decision  problems.  Co-oP  contains  two  models  that 

(i)  cover  three  basic  decision  situations,  i.e. ,  selection, 

ranking,  sorting,  (ii)  are  not  excessively  difficult  to  use 

for  the  decision  makers,  and  (iii)  could  interact  with 

techniques  of  aggregation  of  preferences.  The  MCDM  methods 

implemented  in  each  of  the  individual  DSS  are  the  ftna lytic 

Hierarchy  Process  (flHP)  CRef.  12  1 ,  and  ELECTRE  CRef. 13  J 

ELECTRE  and  ftHP  have  been  selected  for  two  reasons: 

The  two  MCDM  are  conceptually  robust,  and  prac¬ 
tically  easy  to  learn  and  use.  They  have  proven 
their  usefulness  in  aiding  a  number  of  ill-defined 


(1) 


decision  situations  (for  example,  CRef.  14  3  and 
CRef.  15  3  ) 

(£)  Neither  ELECT RE  nor  AHP  require  full  information  on 
the  decision  maker' s  preferences  and  assessment  of 
alternatives,  and  hence,  give  more  autonomy  and 
control  to  the  decision  maker  CRef-  16  3.  This 
feature  makes  it  easier  to  expand  the  algorithm  to 
resolve  group  decision  making. 

This  section  briefly  outlines  basic  concepts  of  the 
ELECTRE  and  AHP  methods. 

a.  The  ELECTRE  Method:  Basic  Concepts 

There  are  a  number  of  reasons  that  make  it 
difficult  for  a  decision  maker  to  exhaustively  compare  all 
known  alternat ives.  First,  the  decision  maker  often  cannot 
compare  some  alternat i ves,  due  to  uncertainty  associated 
with  the  measurement s  and  evaluation.  Second,  the  decision 
maker  may  be  unwilling  to  compare  two  alternatives  because 
they  are  incomparable ;  e. g. ,  option  A  is  better  than  option 
B  by  some  criteria,  whereas  B  is  better  than  A  by  some  other 
criteria.  The  notion  of  indifference  in  utility  theory  does 
not  reflect  this  incomparability  CRef.  17  3.  Last  but  not 

least,  the  i 1 1 -structuredness  and  occasional  inconsistency 
of  the  decision  maker’s  preferences  are  serious  obstacles  to 
enforcing  the  complete  comparability  of  alternatives  (see 
CRef.  12  ]  ) . 

The  concept  of  outranking  relations  seeks  to 
compare  decision  alternatives  only  when  the  decision  maker’ s 
preferences  are  well  defined.  In  other  words,  a,  outranks  a* 
when  the  information  obtained  from  the  decision  maker’ s 
preferences  safely  justifies  the  proposition  that  a*  is  at 
least  as  good  as  aJ  . 

The  outranking  relation  can  be  explained  by  two 
further  concepts:  the  presence  of  concordance  (i.e. ,  for  a 
sufficiently  important  subset  of  evaluation  criteria,  A  is 
at  least  weakly  preferred  to  B) ;  and  the  absence  of 
discordance  (i.e.,  among  the  criteria  for  which  B  is 
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preferred  to  A,  there  is  no  significant  discordant 
preference  that  would  strongly  oppose  any  form  of  preference 
of  A  over  B)  . 

These  indexes  are  used  in  conjunction  with 
concordance  and  discordance  ’thresholds’  chosen  arbitrarily 
by  the  decision  maker  in  the  interval  CO,  13.  The  concordance 
threshold,  p,  is  more  severe  as  it  approaches  1;  the  disco* — 
dance  threshold,  q,  is  more  severe  as  it  approaches  0.  Then, 
the  outranking  relations  can  be  summarized  as  follows: 


C»  /  B  >=  p  and  D„  /B  <=  q 
A  outranks  B,  and  B  outranks  A 


Otherwise 


A  outranks  B 

The  alternatives  are 
equivalent 


The  alternatives  are 
i ncomparabl e 


The  decision  maker  can  start  with  a  less  severe 
set  of  threshold  values,  and  then  sharpen  them  to  reduce  the 
number  of  outranking  relations. 

b.  The  Analytic  Hierarchy  Process:  Basic  Concepts 

The  Analytic  Hierarchy  Process  (AHP)  is  a  MCDM 
method  that  attempts  to  support  complex  decision  problems  by 
successively  decomposing  and  synthesizing  various  elements 
of  a  decision  situation  CRef.  12  3.  Like  ELECTRE,  AHP 
permits  subjective  and  qualitative  pairwise  comparison  of 
alternat i ves.  Unlike  ELECTRE  whose  concept  is  based  on  the 
notion  of  non-dorninated  alternat  ives,  AHP  has  its  foundation 
on  the  concept  of  priority.  The  latter  can  be  defined  as  a 
’level  of  strengths’  of  one  alternative  relative  to  another. 
Departing  from  a  predefined  priority  scale,  the  decision 
maker  is  asked  to  build  a  positive  reciprocal  matrix  of 


pairwise  comparison.  A  vector  of  priority  can  be  derived  by 
computing  the  eigenvector  of  the  reciprocal  matrix.  The 
property  of  the  eigenvector  resides  in  the  fact  that  it  is  a 
consistency  indicator.  Consistency  is  obtained  when  pairwise 
comparisons  are  transitively  and  proport ional ly  consistent. 

Additional  algorithms  are  added  to  help  measure 
the  decision  maker’s  consistency.  These  algorithms  contrast 
the  user’s  evaluation  scores  with  <i>  a  randomly  simulated 
score  that  represents  the  most  irrational  evaluation,  and 
<ii)  the  eigenvalue  that  represents  the  most  accurate 
consistency.  The  examination  of  the  consistency  values 
enables  the  user  to  eventually  revise  initial  judgments, 
and,  if  appropriate,  modify  them  to  improve  overall 
consistency. 

2.  The  Model  Base  for  Group  Decision  Making 

Four  techniques  of  aggregation  of  preferences  are 
implemented  in  the  GDSS.  They  are  chosen  because  of  their 
popularity.  These  include  the  additive  function,  the  multi¬ 
plicative  function,  the  sums-of-the-ranks  approach,  and  the 
sums-of-the-outranking-  relations  approach. 

In  conjunction  with  the  techniques  of  aggregation  of 
preferences,  the  weighed  majority  rule  is  also  implemented 
to  account  for  the  distribution  of  decision  power  among 
decision  makers.  This  rule  allows  the  group  members  to 
differentiate  their  decisional  power  according  to  various 
degrees  of  expertise  or  organizational  hierarchies. 

< 1 )  The  Sums-of-the-Qutranking-Relat ions  Principle 

This  technique  is  derived  from  the  sum-of-the-ranks 
technique  found  in  the  literature  of  aggregation 
of  preferences.  Formally,  it  can  be  expressed  as 
f ol lows : 

Max  C  i*l  <k=»l  ot  k  )  1 

This  technique  should  be  used  only  with  extreme 
care.  Experience  with  this  technique  has  shown  that 
the  idea  of  selecting  the  alternative  that  has  the 
highest  number  of  outranking  relations  works  fine 
only  when  the  number  of  alternatives  are  small.  An 
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example  with  three  decision  makers  and  three 
alternatives,  with  aa  as  the  elected  alternative,  is 
given  below. 


Ordinal  Ranking 


Outranking  Relations 


Sums  of  tht 
Relations 


Sums-of-the-Ranks  Rule 

The  sums-of-the-Ranks  rule  (Borda, 
defined  as  follows: 


1781)  can  be 


where  r.  ,  is  the  rank  assigned  by  decision  maker 
d  to  alternative  at  .  The  example  below  illustrates 
this  rule. 


Hi  tern 


Sums-of-the-Ranks 


Due  to  its  computational  simplicity  this  technique 
is  widely  used  to  determine  consensus  ranking.  Note 
that  the  averages-of-the-ranks  rule  yields  the  same 
results.  However,  when  there  are  ties,  the  results 
are  different. 

Additive  Ranking 

In  the  additive  ranking  method,  group  results  are 
obtained  by  computing  the  arithmetic  mean  of  the 
individual  rankings  assigned  to  each  alternative. 


Due  to  its  simplicity,  this  method  remains  one  of 
the  most  popular  aggregation  of  preferences 
techniques.  The  example  below  illustrates  this  rule. 


Hit  ern 


Additive  Ranking 
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B.  THE  MODEL  MANAGER 

The  role  of  the  model  manager  is  to  coordinate  various 
modelling  activities  of  the  GDSS.  In  Co-oP,  the  multiple 
criteria  group  decision  making  is  decomposed  into  five 
decision  processes  (see  Figure  £  ). 

(1)  Definition  of  the  Group  Problem 

The  group  must  agree  upon  a  common  problem  and 
delegate  a  group  member  —  usually  the  group  leader 
or  the  secretary  —  to  define  a  problem.  In  the 
Co-oP  context,  the  defined  group  problem  consists  of 
identifying  the  alternatives  and  evaluation 
criteria.  Section  VIII  provides  an  example  of  this 
process. 


••  v  v.  v."  it:.- 


(2)  Group  Norm  Definition 

The  group  has  to  identify  its  members  and  assign 
individual  passwords.  It  also  has  to  agree  upon  the 
way  it  handles  data  transfers,  interactive 
conversat ion,  utilization  of  electronic  mail,  and 
the  type(s)  of  techniques  of  aggregation  of 
preferences  adopted.  Division  of  evaluation  tasks 
between  group  members  can  also  be  specified.  The 
group  can  also  request  automatic  selection  and 
computation  of  appropriate  decision  technique. 

(3)  Individual  Evaluation  of  Criteria 

This  process  requires  that  each  group  member 
prioritize  his/her  evaluation  criteria.  This  can  be 
either  accomplished  by  asking  each  decision  maker  to 
directly  assign  weights  to  the  criteria  or  use  the 
Analytic  Hierarchy  Process  scheme  to  generate  the 
weighed  or  priority  vector.  Co— oP  allows  elimination 
of  weak  criteria. 

(4)  Individual  Assessment  of  Alternatives 

Given  a  chosen  problem,  this  process  allows  the 
group  members  to  individually  express  their 
preferences  regarding  the  alternat i ves.  This  process 
can  be  either  direct  (i.e. ,  the  user  enters  cardinal 
weights  to  each  alternative)  or  indirect  (i.e.,  the 
group  member  uses  one  or  two  available  MCDM 
techniques) . 

(5)  Computation  of  Group  Results 

Guided  by  the  instructions  defined  in  the  group  norm 
(i.e.,  the  second  process),  group  results  are 
automatically  computed  once  all  individual  analyses 
are  submitted. 

1 .  Integration  of  Models 

Unless  otherwise  specified  by  the  group  norm,  the 
Co-oP  group  module  automatically  searches  for  all 
aggregation  techniques  that  are  compatible  with  the 
individual  MCDM  used.  If  direct  assessment  of  alternatives 


or  AHP  has  been  adopted  by  every  group  member  for  individual 
assessment  of  a  1 1 ernat i ves,  all  of  the  four  implemented 
techniques  will  be  computed,  since  the  latter  are  compatible 
with  the  AHP  in  that  they  are  based  on  cardinal  preferences. 
However,  the  ELECTRE  method  can  work  only  with  the 
surns-of-the  outranking-relat  ions  and,  to  a  certain  degree, 
the  surns-of-the— ranks  algorithms. 


When  both  available  MCDM  are  used  concurrently  by  a 
group  member,  the  Co-oP  model  manager  automatically  searches 
for  group  decision  techniques  that  can  accept  inputs  from 
both  AHP  and  ELECTRE.  When  a  single  user  alternately  uses 
both  available  MCDM,  the  Co-oP  model  manager  sequentially 
displays  group  results  according  to  all  possible  combina¬ 
tions  of  individual  methods. 

Such  a  sensitivity  analysis  constitutes  a  point  of 
departure  for  the  group  to  start  exchanging  points  of  view 
and  directions  to  reach  agreement,  and,  if  any,  reducing 
tension.  The  group  can  then  temporarily  exit  from  ELECTRE, 
and  use  the  electronic  notepad  to  informally  resolve  these 
problems  of  control  and  of  tension  management.  If  some 
concessions  can  be  obtained,  the  participants  can  return  to 
ELECTRE  and  modify  evaluation  scores  accordingly.  By 
switching  back  and  forth  between  the  individual  DSS  and  the 
group  DSS  ,  the  participants  can  perform  ’sequential  conces¬ 
sions’  . 


2.  Combined  Use  of  MCDM  and  Techniques  of  Aggregation 
of  Preferences 

Bui  CRef.  21  argues  for  a  unified  MCDM  framework. 
Such  an  attempt  is  necessary  to  (i)  support  a  wide  range  of 
decision  situations,  <ii)  enable  economy  of  information 
search,  (iii)  allow  division  of  evaluation  tasks.  In  the 
Co-oP  version  implemented  for  this  thesis,  there  are  three 
possible  levels  of  interaction  between  ELECTRE  and  AHP. 
First,  ELECTRE,  when  used  alone,  assumes  that  the  decision 
has  a  defined  vector  of  criterion  weights.  AHP  can  help  the 
ELECTRE  user  perform  prioritization  of  evaluation  criteria 
prior  to  the  pairwise  evaluation  of  a  1 1 ernat i ves.  Second, 
when  the  size  of  a  decision  problem  is  large,  the  number  of 
inputs  required  to  perform  the  AHP  method  can  be  excessive. 
The  Co— oP  user  can  use  ELECTRE  as  a  sorting  tool  to  reduce 
the  problem  size,  and  then  utilize  PHP.  Third,  since  the  two 
methods  refer  to  the  same  decision  space  (defined  in  the 


Co-oP  first  process),  they  can  be  concurrently  used  to 
verify  the  decision  maker’s  consistency. 

C.  THE  LINKAGE  MODULE 

The  purpose  of  the  Co-oP  Linkage  Module  is  to  feed  input 
data  to  various  models  of  the  Model  Base  and  to  route  output 
data  to  various  files  managed  by  the  Data  Base  Component. 
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IV 


THE  INTERFACE  COMPONENT 


A.  SCREEN  DESIGN 

Despite  the  structured  aspect  of  the  multiple  criteria 
group  problem  solving  processes,  it  remains  an  eventual 
burden  for  the  decision  makers  to  memorize  what  he  has  done 
in  the  previous  steps.  Maintaining  a  high  degree  of 
coordination  and  cohesiveness  of  thoughts  is  particularly 
prevalent  in  complex  decision  problems  CRef.  17  3. 

Screen  Format :  During  the  problem  definition  and  the 
group  norm  definition  processes,  data  entry  in  outline  form 
is  adopted.  Such  an  entry  form  would  not  only  facilitate  the 
thinking  process  of  themanagers,  but  also  help  decompose 
objectives  into  hierarchical  levels  CRef.  12  3.  Section  VIII 
exhibits  examplesof  the  outline  forms  used  for  defining  the 
col lect i vedecision  problem  and  the  definition  of  group 
norms. 

For  the  multiple  criteria  group  decision  processes 
<i.e. ,  processes  3  through  7>,  Co-oP  proposes  a  screen 
format  that  displays  simultaneously  four  different  windows 
(see  Section  VIII).  Whenever  possible,  Co-oP  uses  the  same 
screen  format  throughout  its  usage.  The  purpose  of  such  a 
design  is  to  provide  the  user  with  a  synoptic  andfamiliar 
snapshot  of  the  current  state  of  the  problem,  throughout 
the  entire  decision-making  process. 

The  Step  Window  located  at  the  bottom  screen  keeps  the 
decision  maker  up  to  date  on  the  current  decision  making 
status.  It  consists  of  a  t wo- 1 i nest at  us  text  indicating 
alternat i vely  the  current  step  in  the  hierarchy  of  group 
problem  processes,  and  any  required  prompts  or  diagnostic 
messages  related  to  the  DSS-user  interaction. 


The  Dialogue  Window  provides  a  conversational  medium 
between  the  decision  maker  and  the  DSS.  It  enables  the 
Question/  Answer  mode  of  interaction  to  be  accompanied  by 
verbal  and  color/graphic  explanation  of  various  processing 
sequences  and  intermediate  results. 

To  support  the  decision  maker’s  orientation  during  the 
group  decision-making  process,  the  Working  window  at  the 
upper  left  corner  of  the  screen  reminds  the  user  of  vital 
information  from  past  dialogue  or  inputs.  Also,  it  displays 
the  results  obtained  by  other  participants  if  requested. 

The  Solution  window  is  located  at  the  upper  right  of  the 
screen.  It  displays  intermediate  and  finalresults  including 
statistical  indexes,  and  highlights  optimal  values.  Tabular 
outputs  and  bar  graphs  are  combined  to  provide  alternate 
ways  to  represent  outputs. 

Throughout  the  entire  Co-oP  process,  the  windows  can  be 
recognized  by  their  colors.  However,  they  vary  in  size 
according  to  the  required  amount  of  information  displayed 
(e. g. ,  number  of  decision  makers,  number  of  decision 
alternat i ves,  and  number  of  evaluation  criteria). 

In  addition  to  the  above  mentioned  window,  an  electronic 
notepad  window  can  be  invoked  at  any  time  to  make  use  of 
person-or iented  and  unstructured  communicat ions. 

B.  DIALOGUE  STYLE 

In  addition  to  the  window  structure  that  governs  the 
entire  Co-oP  group  decision  making  process,  Co-oP  combines 
menus  and  questions  to  communicate  with  its  users.  The 
purpose  of  these  dialogue  styles  is  to  provide  the  users 
with  a  structured,  simple  and  controlled  framework  to 
interact  with  an  integrated  set  of  multiple  criteria  group 
decision  methods.  Whenever  possible,  concise  queries  and 
uniform  terminology  are  used  throughout  the  six  processes  of 
the  Co-oP  group  decision  making  process. 
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The  use  of  menus  and  queries  also  facilitates  establish¬ 
ing  error  procedures.  Although  error  control  procedures  are 
not  unique  to  the  design  of  multiple  user  interface,  an 
eventual  I/O  error  occurring  in  a  group  DSS  can  generate 
unexpected  and  severe  consequences  in  a  distributed  DSS. 
Input  control  routines  have  been  implemented  at  each  entry 
level  to  minimize  the  likelihood  of  input  errors,  or  to 
maximize  the  possibility  of  recovering  from  errors  when  the 
latter  occur. 

To  handle  errors  made  by  the  users,  Co-oP  provides  two 
types  of  error  control  procedures.  The  first  type  of 
procedure  detects  syntax  errors.  For  instance,  entering  a 
negative  number  of  decision  makers  or  typing  an  invalid 
filename  would  be  gracefully  rejected  by  the  Co-oP  dialogue 
manager.  The  second  type  of  control  routines  attempts  to 
prevent  decision  makers  from  violating  basic  assumptions  or 
rules  of  the  decision  methods.  For  instance,  the  dialogue 
manager  will  refuse  a  concordance  threshold  higher  than  100 
percent  when  ELECTRE  is  used. 

Co-oP  also  generates  short  explanation  messages  in  the 
Step  window  to  maintain  the  user  confidence  in  the  system, 
or  at  least  make  the  multiple  criteria  group  decision  making 
less  unnatural  to  the  users. 

C.  THE  HELP  COMMANDS 

Help  facilities  are  implemented  on  a  separate  and 
resident  program  that  can  be  concurrently  invoked  during  the 
Co=oP  decision-making  process.  Due  to  its  relatively  large 
amount  of  text,  the  help  program  is  h i erarch ica 1 ly  broken 
down  into  eight  section  (see  Figure  3). 


HELP  FOR  Co  oP 


MAIN  MENU 

<1>  General  Information 

<£>  Create  a  new  Problem 

<3>  Priorit izat ion  of  Evaluation 
Criteria 

<5>  Evaluation  of  Alternatives 
<6>  Direct  Input  of  Weights 
<7>  Computation  of  group  Decision 
<Q>  N  A  I 
SELECTION  s 


HELP  FOR  Co_ 

oP 

SUBMENU  1  -  GENERAL  INFORMATION 

n> 

What  Co_oP 

IS 

<£> 

How  to  Use 

It 

<3> 

AHP  Method 

<5> 

Electre  Method 

SELECTION  : 

Figure  3.  The  Help  Menu 


V.  THE  DATA  COMPONENT 


A.  THE  DATA  STRUCTURE 

The  current  version  of  Co-oP  is  a  process-centered  group 
DSS,  as  opposed  to  a  data-centered  DSS  (for  instance,  see 
CRef.  lfl  3  ).  As  a  consequence,  the  structure  of  the  Co-oP 
data  component  is  minimal.  Its  objective  is  to  (i>  insure 
smooth  and  fast  data  transport  from  one  MCDM  step  to  the 
other,  and  (ii)  facilitate  data  exchange  between  decision 
makers. 

Data  files  are  grouped  according  to  each  process.  These 
include  (i)  a  file  containing  the  problem  definition 
(Process  1),  (ii)  a  norm  file  for  each  group  norm,  (iii)  a 
solution  file  for  each  group  members,  and  (iv>  a  group 
results  file  for  each  decision  problem.  Data  dictionaries 
are  given  in  Tables  1,  2,  3  and  4. 

To  minimize  the  time  needed  for  data  transfers  between 
individual  workstat ions,  data  files  are  physically  central¬ 
ized  and  stored  in  the  server  of  the  Local  Area  Network. 
However,  they  are  functionally  distributed  in  that  they  can 
be  accessed  only  by  authorized  group  members. 


B.  THE  DATA  MANAGER 

In  the  current  version  of  the  GDSS,  the  Data  Manager 
performs  a  double  functions.  It  (i)  assures  that  data  are 
correctly  transferred  to  their  location,  and  (ii)  checks  the 
consistency  transfer,  i.e.,  validating  the  number  of  data 
mod if icat ion. 


TABLE  1 

LOGICAL  DATA  BASE  RECORDS  FOR  STORE  THE  DATA  OF  A  PROBLEM 


PROBLEM  =  RECORD 

namel  string,  it  holds  the  name  of  the 

problem. 

levels  Integer, it  holds  the  number  of  the 

criteria  1-5 

numofalternat ives  Integer,  it  holds  the  number  of  the 

alternatives  that  a  problem  have 

level  1  arrayC1..53  of  string,  it  holds  the 

names  of  the  criteria  of  level  1-5 

level2  array C 1 . . 5, 1 . . 53  of  strings,  it  holds 

the  names  of  the  criteria  of  sublevel 
1.  (1-5)  -  5.  (1-5) 

levels  array  Cl . . 5,  1 . . 53  of  strings,  it  holds 

the  names  of  the  criteria  of  sublevel 
1.  1.  (1-5)  -  1.5  (1-5) 

level4  array C 1 . . 5, 1 . . 53  of  strings,  it  holds 

the  names  of  the  criteria  of  sublevel 
2. 1. (1-5)  -  2. 5(1-5) 

levels  array C 1 . . 5, 1 . . 53  of  strings,  it  holds 

the  names  of  the  criteria  of  sublevel 

3.  1.  (1-5)  -  3. 5(1-5) 

levels  arrayCl. . 5, 1. . 53  of  strings,  it  holds 

the  names  of  the  criteria  of  sublevel 

4.  1.  ( 1-5)  -  4.  5  < 1-5) 

level7  arrayCl. . 5, 1. . 53  of  strings,  it  holds 

the  names  of  the  criteria  of  sublevel 

5.  1.  (1-5)  -  5. 5 (1-5) 

level  1  integer,  it  holds  the  number  of  the 

criteria  1  -5 

sublevel  1  arrayC1.53  of  integers,  it  holds  the 

number  of  the  criteria  for  sublevels 
1.  < 1-5)  -  5. ( 1-5) 

sublevel2  array C 1 .  .  5,  1 .  .  53  of  integers,  it 

holds  the  number  of  the  criteria  in 
sublevels  1. 1. (1-5)  -  5.5. (1-5) 

alternatives  arrayC1..153  of  strings.  It  holds 

the  names  of  the  alternatives  of 
the  problem 


END 


TABLE  2 

LOGICAL  DATA  BASE  RECORDS  FOR  STORE  THE  DATA  OF  A  PROBLEM 


SOLUTION!  =■  RECORD 


pfactor, qfactor 

numofcr i t  er i a 
numof alternat i ves 

alternat i ves 

numof users 

solved 

grad i ng 

completed 

completedal 1 

vector 1 

vector2, vectors, 
vectorA, vectors, 
vector6, vector 7 

normvect or 1 

normvect  or2 


integers,  they  holds  the  Concordance  and 
Discordance  Threshold 

integer,  it  holds  the  number  of  criteria 
integer,  it  holds  the  number  of  the 
alternat ives 

arrayC1..93  of  string  ,  it  holds  the  name 
of  the  alternatives 

integer,  it  indicates  the  number  of  the 
users 

array  Cl. .31  of  boolean, it  indicates  if  a 
particular  user  has  solve  the  problem 
arrayC1..3D  of  array C 1. . 33 , it  contains 
weights  of  criteria  1—5  for  each  user 
boolean,  it  indicates  if  the  evaluation  o 
the  criteria  is  completed  of  all  the  user 
boolean,  it  indicates  if  the  problem  is 
solved 

array  Cl.. 53  of  reals,  it  contains  the 
weights  of  the  criteria  of  sublevel  1  -5 


array  Cl.. 5, 1.53  of  reals,  it  holds  the 
weights  of  all  the  rest  criteria 
array  Cl.. 1253  of  strings,  it  holds  the 
names  of  the  final  criteria  <  after  the 
evaluation  ) 

array  Cl.. 1253  of  reals,  it  holds  the 
weights  of  the  final  criteria  (  after  the 
evaluation  ) 
array C 1 .. vect org  ; 

altrixCl..#  alternat i ves, 1 . . #  criteria! 
arrayC1..33  of  boolean,  it  indicates  if  a 
specific  user  has  compute  the  evaluation 
of  the  alternatives 


norrni  ndex 
altmatr i x 
final  index 


TABLE  2 
(cont inued ) 


ahp  :  record 
status 

alt vector 1 
numof tries 

end ; 

elect re  :  recor 
stat  us 

outranking 

numof tries 

end  ; 


boolean,  it  indicates  if  the  solution 
of  a  problem  has  been  computed  with  the 
AHP 

arrayC1..33  of  real,  it  contains  the  final 

weights  of  the  alternatives 

integer, it  indicates  how  many  times  the 

user  has  modify  the  solution  of  the 

problem 

d 

boolean,  it  indicates  if  the  solution  of  a 
problem  has  been  computed  with  the  ELECTRE 
array C 1 . . 9, 1 . . 33  of  char,  it  contains  the 
outranking  matrix  for  the  alternatives 
integer, it  indicates  how  many  times  the 
user  has  modify  the  solution  of  the 
problem 


END 
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TABLE  3 

LOGICAL  DATA  BASE  RECORDS  FOR  STORE  THE  DATA  OF  A  PROBLEM 


usersnames 

users ids 

numofcriteria 
numofa 1 1  ernat i ves 

alternat i ves 

normvector 1 

norravect or£ 

ahp  :  record 
stat  us 

alt vector 1 


array  Cl.. 33  of  stings,  it  holds  the 
names  of  the  users 

array  Cl.. 33  of  strings,  it  holds 
the  users  id 

integer,  it  holds  the  number  of  criteria 
integer,  it  holds  the  number  of  the 
alternat ives 

arrayC1..93  of  stringd,  it  holds  the  name 
of  the  alternatives 

array  C1..1S53  of  strings,  it  holds  the 
names  of  the  final  criteria  (  after  the 
evaluation  ) 

array  Cl..  1253  of  reals,  it  holds  the 
weights  of  the  final  criteria  (  after  the 
evaluation  > 

boolean,  it  indicates  if  the  solution 
of  a  problem  has  been  computed  with  the 
AHP 

arrayC1..93  of  real,  it  contains  the  final 
weights  of  the  alternatives 


numoftries  integer, it  indicates  how  many  times  the 

user  has  modify  the  solution  of  the 
problem 


end ; 

elect re  :  record 

status  boolean,  it  indicates  if  the  solution  of  a 

problem  has  been  computed  with  the  ELECTRE 
outranking  array C 1 . . 9, 1 . . 93  of  char,  it  contains  the 

outranking  matrix  for  the  alternatives 
numoftries  integer, it  indicates  how  many  times  the 

user  has  modify  the  solution  of  the 
problem 


end  ; 


END 
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TABLE  4 

LOGICAL  DATA  BASE  RECORDS  FOR  STORE  THE  DATA  OF  A  PROBLEM 

NORM  =  RECORD 

numof users 

integer,  it  holds  the  number  of  the 

modi fyt imes 

users  that  are  going  to  solve  the 
problem 

integer,  it  indicates  how  many  times  a 

1 ast  t i me 

user  can  modify  the  solution  of  the 
problem 

integer,  it  indicates  the  last  date  that 

usersnames 

a  user  must  submit  his  solution 
array  Cl.. 31  of  stings,  it  holds  the 

speci ndex 

names  of  the  users 

arrayC1..51  of  strings,  it  indicates  the 

usersids 

criteria  that  each  user  is  going  to  solve 
in  the  division  of  tasks  case 
array  Cl.. 31  of  strings,  it  holds 

weight 

the  users  id 

array Cl.. 31  of  real,  it  indicates 

agregat ion 

the  weight  of  the  decision  of 
each  user 

boolean,  it  indicates  if  we  are  going  to 

nai 

use  all  the  techniques  of  aggregation 
of  preference 

boolean,  it  indicates  if  the  program 

specialized 

will  use  NAI  automat ical ly  after  the 
complication  of  the  group  result 
boolean,  it  indicates  if  we  are  going 

broadcast ing 

to  use  division  of  tasks  or  not 
boolean,  it  indicates  if  the  users  have 

mod i f y 

the  right  to  see  the  others  users 
results 

boolean,  it  indicates  if  the  user  has 

the  right  to  modify  the  solution  of 

agregat ionname 

the  problem 

arrayC1..41  of  characters,  it  indicates 

END 

the  techniques  of  agregat ion  of 
preference  that  we  are  going  to  use 
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VI.  THE  COMMUNICATIONS  COMPONENT 


ft.  THE  GROUP  NORM  CONSTRUCTOR 

The  Co-oP  Group  Norm  Constructor  resides  in  the  second 
Co-oP  multiple  criteria  decision  making  process.  The  group 
leader  or  secretary  has  to  initiate  the  group  decision 
making  by  (1)  identifying  the  group  members,  (2)  assigning 
respective  decision  weights,  (3)  determining  the  mode  of 
group  decision  making  (e.g.,  division  of  evaluation  tasks  or 
’pooled’  decision  making),  (4)  selecting  the  techniques  of 
aggregation  of  preferences,  (5)  setting  the  mode  of 
information  exchange  (i.e. ,  broadcast  of  individual 
results),  and  (6)  defining  the  deadline  for  the  group 
members  to  submit  individual  results. 

B.  THE  GROUP  NORM  FILTER 

The  Co-oP  Group  Norm  Filter  consits  of  a  set  of 
subroutines  that  enforce  the  norms  set  by  the  Group  Norm 
Monitor. 

C.  THE  FORMATTER 

The  main  role  of  the  Co-oP  formatter  is  to  convert 
individual  results  computed  by  the  ELECTRE  and  AHP  methods 
to  data  formats  that  can  be  inputted  into  the  modules 
containing  the  techniques  of  aggregation  of  preferences.  For 
instance,  individual  cardinal  rankings  are  converted  into 
ordinal  rankings  for  the  sums-of-the-ranks  algorithm. 


VII.  IMPLEMENTATION  QF  THE  GDSS 


A.  SOFTWARE  STRUCTURE 

Turbo  Pascal  cannot  handle  program  files  whose  size  is 
larger  than  62  kilobytes.  To  override  such  constraint,  Co-oP 
has  been  decomposed  into  15  including  files.  The  latter  are 
described  below.  Also,  filenames  under  IBM-PC-DOS  cannot 
have  more  than  eight  letters,  abbreviated  filenames  have 
been  used. 

DIRLIST1 

PROCEDURE  DIRLIST  displays  on  the  scrren  the  existing  files 
of  previously  defined  problems  (problem_name. def ) 


DIRLIST2 

PROCEDURE  DirListA  The  same 
files  (norrn_name.  gn)  . 


above  but  for  the  norms 


PROCED 

FUNCTION  STUPCASE  turns  a  string  to  uppercase  characters. 
FUNCTION  EXIST  examines  if  the  file  requested  by  a  user  to 
access  exists.  If  it  exists  it  returns  the  value  TRUE  else 
returns  the  value  FALSE. 

PROCEDURE  WAIT  stops  the  execution  of  the  program  until  the 
moment  that  the  user  will  hit  a  key. 

PROCEDURE  CLEARSCREEN  clears  the  screen  for  line  1  to  line 
10  to  make  space  for  new  data. 

PROCEDURE  CONVERT  converts  a  string  to  the  correspond i ng 
numerical  value 

PROCEDURE  IDENTIFY  reads  the  user  input  and  accepts  it  only 
if  it  is  Y  or  N. 
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PROCEDURE  CHECKIMUMBER  reads  a  number  that  the  user  enters 
and  accepts  it  only  if  it  is  within  a  predefined  range. 
PROCEDURE  SORT 1  sort  an  array  of  numbers. 

PROCEDURE  WRITENORMFILE  reads  from  the  program  the  current 
norm  data  and  writes  them  in  a  file  (e.  g.  ,  data  of  the 
current  norm) . 

PROCEDURE  WRITEPROBLEMFILE  reads  the  norm  data  from  the 
current  norm  file  and  passes  them  to  the  program. 

PROCEDURE  READPROBLEMFILE  reads  from  the  program  the  problem 
data  and  writes  them  in  a  file  (e. g. ,  data  of  the  current 
problem) . 

PROCEDURE  READNORMFILE  reads  the  data  for  the  correspond i ng 
norm  file  and  passes  them  to  the-  program. 

PROCEDURE  READSOLUT I ONF I LE  read  the  data  from  the  user  file 
and  passes  them  to  the  program 

PROCEDURE  WR I TESOLUT 1 ONF I LE  reads  the  current  user  data  from 
the  problem  and  writes  them  to  the  current  user  file. 


FILES 

PROCEDURE  OPENFILE  opens  for  the  first  time  a  file  that  it 
will  keep  the  data  of  a  new  problem. 

PROCEDURE  OPENSOLUT I ONF I LE  opens  for  the  first  time  a  file 
that  it  will  keep  the  data  of  the  solution  of  the  problem  ( 
one  for  each  user). 

PROCEDURE  OPENNORMFILE  opens  for  the  first  time  a  file  that 
it  will  keep  the  data  of  a  new  norm. 


UTILITES 

PROCEDURE  DISKDATA  asks  the  user  if 
predefined  problem  or  norm. 


wants  to  see  a 


PROCEDURE  DISKSTATUS  displays  all  the  existing  problems  and 
norms  of  the  current  directory. 

PROCEDURE  READ1  asks  the  user  the  name  of  the  problem  that 
he  wishes  to  solve. 
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PROCEDURE  READS  asks  the  user  the  name  of  the  norm  that  he 
wants  to  use. 

PROCEDURE  READ3  asks  the  user’ s  name. 

PROCEDURE  READ4  asks  the  user’ s  password. 

PROCEDURE  READS  asks  the  decision  method  that  the  user  is 
going  to  use. 

PROCEDURE  DATA  includes  read  1 , reads, read3, read4. 

PROCEDURE  PRIORITYQFCRITERI A  permits  evaluation  of 

evaluation  criteria. 

STEP1 

PROCEDURE  CREATEPROBLEM  reads  the  data  of  a  new  problem  and 
writes  them  in  a  file. 

PROCEDURE  DISPLAY  displays  the  data  of  a  problem  to  the 
screen  after  the  request  of  the  user. 

PROCEDURE  CORRECTDATA  corrects  the  data  of  the  problem  in 
case  of  an  error  occurs. 

STEP2 

OVERLAY  PROCEDURE  NORMDEFINITION  reads  the  data  of  a  new 
norm  and  writes  them  in  a  file. 

STEP2-1 

PROCEDURE  NORMSELECTION  asks  the  user  to  select  one  of  the 
existing  norms. 

PROCEDURE  DISPLAYNORM  displays  the  data  of  a  norm  to  the 
screen. 

STEP3 

PRIQRITYOFCRITERI A  is  the  main  program  for  the  evaluation  of 
the  criteria. 

STEP  3-1 

OVERLAY  PROCEDURE  EVALUATE  includes  the  evaluation  of  a  set 
of  criteria  using  AHP. 
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OVERLAY  PROCEDURE  D I  RECTI  is  similar  to 
procedure  but  using  direct  mode. 


the  previous 


STEP3-S 

PROCEDURE  SELECTCRITERI A  computes  the  final  weights  after 
the  computation  of  all  the  sets  of  criteria. 

PROCEDURE  FINALCRITERI A  gives  the  user  the  opportunity  to 
reduce  the  number  of  the  final  criteria. 

STEP4 

PROCEDURE  SOLVEWITHAHP  controls  the  evaluation  to  the 
alternatives  if  the  user  select  :  AHP,  direct  mode,  general 
direct  mode,  and  displays  the  final  weights  for  the 
alternat i ves. 

PROCEDURE  COMPUTEALTERNATI VES  controls  the  computation  of 
the  alternatives  according  to  the  method  that  the  user  is 
going  to  use. 

STEP4-1 

OVERLAY  PROCEDURE  EVALUATE 1  evaluates  a  set  of  alternatives 
using  AHP. 

OVERLAY  PROCEDURE  EVALUATE3,  upon  request,  assigns  weights 
in  a  set  of  alternatives  directly  (without  grading 
previously  the  criteria). 

OVERLAY  PROCEDURE  DIRECTEA  evaluates  a  set  of  alternatives 
using  the  direct  mode. 

STEP4-E 

OVERLAY  PROCEDURE  ELECTRE  evaluates  a  set  of  alternatives 
using  the  ELECTRE  method. 

STEP6 

OVERLAY  PROCEDURE  GDSS  computes  the  group  results. 
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B.  EFFORT  DISTRIBUTION  AND  MAINTENANCE  PROBLEMS 
1 .  Effort  Distribution 

The  development  of  the  software  took  approximately 
six  man-months.  The  effort  distribution  is  indicated  below: 

TABLE  5  EFFORT  DISTRIBUTION 


— 

AHP  & 
ELECTRE 

GROUP 

MODULE 

USE  OF 
NORM 

DIVISION 
OF  TASKS 

Requirement  Analysis 

3 

& 

a 

2 

Initial  Design 

5 

3 

3 

5 

Detailed  Design 

- 

- 

- 

Coding 

17 

1 1 

5 

3 

Unit  test ing/Debugging 

S 

5 

2 

3 

Testing  Integration 

4 

5 

2 

2 

%  Of  the  Total  time 

35 

30 

20 

15 

It  is  worth  noticing  that  the  iterative  design 

adopted  for  the  development  of  Co-oP  has  helped  in 

incrementing  the  functionalities  of  the  software. 

2.  Implementation  Problems  and  Maintenance  Issues 

(1)  Design  of  Algorithms: 

The  understanding  of  algorithms,  conversion  of 
algorithm  in  structured  pseudo-codes  required 
elaborated  design. 

<2)  Programming  Language: 

Mastering  the  language  adopted  for  the  software 
development  has  taken  a  substant ial learning  effort. 
Window  scrolling,  overlays,  cursor  handling — due  to 
the  limited  capabilited  of  the  programming  language 
— took  a  non-negl i gible  learning  effort. 

Debugging  logical  errors: 

Due  to  the  complexity  ofthe  data  structures,  in 
particular,  the  mani pu 1  at ionof  matrices  in  the  AHP 


(3) 


VIII. 


REMOTE  MULTIPERSON  DECISION  WAKING  IN  MILITARY 
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STRATEGIC  PLANNING 


A.  EXAMPLES  OF  POSSIBLE  USE  OF  GDSS  IN  THE  MILITARY  CONTEXT 
The  proposed  software  is  most  appropriate  for  decision 

situations  where  there  is  distribution  in  space  and  in  time. 
Such  decision  settings  are  often  encountered  at  various 
high-level  decision  making  in  the  armed  forces  as  well  as  in 
the  civil  government.  The  example  discussed  below 
illustrates  an  decision  example  that  deals  with  the 
selection  of  a  naval  warship. 

B.  A  HYPOTHETICAL  EXAMPLE 

To  exemplify  the  potential  usefulness  of  the  developed 
software,  this  section  describes  a  hypothetical  example.  The 
latter  consists  of  selecting  a  naval  ship.  Two  scenarios  are 
discussed  below.  The  first  one  assumes  a  multiple-user 
decision  situation  where  there  is  an  exclusive  division  of 
tasks  at  upper— level  decision.  In  other  words,  each  group 
member  is  assumed  to  have  special  expertise  and  is  assigned 
to  evaluate  the  alternatives  according  to  the  decision 
criteria  closely  related  to  his  knowledge.  The  second 
scenario  illustrates  a  group  decision  situation  where 
collective  assessment  at  the  staff  level  is  performed.  In 
other  words,  each  group  member  has  his/her  opinions  on  the 
entire  set  of  evaluation  criteria. 

SCENARIO  Is  DIVISION  OF  TASKS  AT  UPPER-LEVEL  DECISION 

(1)  Decision  alternat i ves : 

Naval  ships  can  be  bought  from  three  countries:  the 
United  Kingdom,  the  Netherlands  and  West  Germany. 
This  example  concentrates  on  a  particular  class  of 
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warship,  i.e. ,  the  Corvette.  For  the  purposes  of 
this  scenario,  the  speci f icat ions  of  the  three  ships 
are  given  in  Tables  6  and  7. 

Decision  makers: 

Decision  makers  include  the  chief  of  the  weapon 
department,  the  chief  of  the  engineering  department 
and  the  chief  of  the  electronics  department . A1 1  of 
the  above  officers  are  under  the  command  of  the 
chief  of  department  of  new  constructors,  a  Real 
Admiral.  Each  of  the  officers  has  specific  expertise 
in  the  performance  evaluation  of  the  ship 
candidates.  The  chief  of  the  weapon  department, 
officer  enjoys  however  the  highest  decision  power. 
It  is  assumed  that  the  decision  makers  operate  under 
more  or  less  complete  information  about  the  ships. 
Each  decision  maker  has  a  technical  staff  of  his  own 
that  performs  detailed  surveys  of  the 
character ist ics  of  the  ships. 

<3)  Decision  making  norms: 

To  get  started,  a  member  of  the  decision  group  has 
to  define  the  decision  norms.  It  is  assumed  that  the 
chief  of  the  weapon  department  takes  this 
responsibility.  As  discussed  in  Chapter  V,  the  group 
leader  sets  different  distributed  computei — based 
communications  norms.  Figure  4  is  an  actual  display 
screen  of  the  interactive  norm  definition  process. 

< 4)  Decision  making  procedures: 

The  evaluation  process  is  broken  down  to  group 
members.  Each  decision  member  has  the  exclusive 
right  to  assess  the  alternatives  according  to  the 
criteria  that  are  related  to  his  expertise. 

(5)  Evaluation  Criteria: 

For  the  sake  of  simplicity,  this  example  excludes 
political  and  economical  issues  that  in  real-life 
situations  often  play  an  important  role  in  the 
selection  process.  The  evaluation  criteria  are 
grouped  in  four  sets:  ’gun  systems’,  ’electronics’, 
’engine’  and  ’cost’.  The  latter  are  respectively 
analyzed  by  officer  chief  of  the  weapon  department, 
the  chief  of  the  engineering  department  and  the 
chief  of  the  electronics  department.  Such  a  division 
of  evaluation  task  is  motivated  by  the  fact  that 
each  of  the  officers  detains  unique  expertise  their 
field.  Figure  5  lists  the  criteria  chosen  for  the 
ship  selection  problem. 
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GERMANY, FEDERAL 

NETHERLANDS 

UNIT. KINGDOM 

TYPE 

TYPE  122 

TYPE 

DISPL 

(tons) 

3600  -  Full  load 

3050  -  Standard 
3630  -  Full  load 

3000  -  Standard 
3700  -  Full  load 

DIMENSION 
(ft ) 

130x14. 5x6. 5 

130. 5x14. 4x6. 2 

1 33x 1 5x43 

AIRCRAFTS 

2  Lynx  helicopter 
with  AQS  lfl  sonar 

2  AB  212  ASW 
hel i copters 

2  Lynx  helicopter 

MISSILES 

SSM:8  Harpoon 
SAM:1-S  Sea  Spar 

2  mult  sting  laun 
chers;2  RAM  ASDM 

SSM:4  Harpoon 
SAM: NATO  Sea 
Sparrow  PDMS 

SSM  :8  Harpoon 

SAM  : Sea  wolf  VLS 

GUNS 

l-76mm/62 ; 

Breda  105  mm  20 
tube  rocket  laun 

2-76  mm/ 62 
Compact 

1-4.5  in  55  MkB 
C/WS:2-30  mm 

Goal  keeper 

A/S 

WEAPONS 

4  Mk2  32  torpedo 
tubes 

4  MK2  torpedo 
fot  Mk  46  torp 

6  STWS  torpedo 
tubes 

MAIN 

ENGINES 

2  GE-LM  2500 

Gas  Turbines 

2  MTU  20V  956 
TB92  Diesels 

2  Rolls-Royce 
TM3B  Gas  Turb 

2  Rolls-Royce 
RM1C  Gas  Turb. 

2  Rolls-Royce 

SMI A  Gas  Turb. 

4  Pax man  Valent a 

Diesels 

2  Gee  Electr  Mot 

SPEED 

(KNOTS) 

30  knot  s 

30  knots 

cl'Q  knot  s 

RANGE 
(mi les) 

4000 

at  16  knots 

4700 

at  16  knot  s 

7800 

at  15  knots 

COMPLEMENT 


204 


176 


143 


TABLE  7  SPECIFICATIONS  OF  THE  WAR  SHIPS 


FEDERAL,  GERMANY 


RADAR 


1. SURVEILLANCE  :  Type  996  ,  Plessey  AWS  -  5 

plus  AWS  -  6 

£. SEA  WOLF  GUIDANCE  Two  Marcony  Type  191 
3. NAVIGATION  One  Kelvin  Huges  Type  1007 

SONAR 

Type  2050  (  Bow  Mounted  ) 

Type  2031  (  Towed  array  > 

UNITED,  KINGDOM 

RADAR 


1. SURVEILLANCE 

2.  FIRE  CONTROL 

3.  NAVIGATION 


HSA  DA  08 

HSA  WM  25  and  STIR 
SMA  3RM  20 


SONAR 


Active  Passive  Atlas  DSQS  21  BZ  and  BO 


NETHERLANDS 


RADAR 


1. SURFACE  SURCH 
2. FIRE  CONTROL 


3. NAVIGATION 


One  DA  -  08 
One  LW  —  08 
One  WM  25  SYSTEM 
One  STIR 
One  ZW  -  06 


SONAR 


SQS 


505  Bow  Mounted 


(6)  Individual  Prior it i zat ion  of  Evaluation  Criteria: 

As  discussed  earlier,  Co-oP  currently  provides  two 
modes  for  individual  prior it izat ion  of  evaluation 
criteria.  Each  group  member  can  choose  any 
combination  of  these  two  modes.  For  this  example, 
the  chief  of  the  weapon  department,  the  chief  of  the 
engineering  department  and  the  chief  of  the 
electronics  department  respectively  chose  the  AHP, 
direct,  and  direct  methods.  Figures  7  to  16 
successively  display  the  outputs  of  the 
pr ior it i zat ion  process  of  the  three  decision  makers. 
In  order  to  reduce  the  numberf  evaluation  iteration, 
the  criteria  that  score  low  values  are  eliminated 
(Figure  17). 

(7)  Individual  Evaluation  of  Alternatives 

To  support  the  individual  evaluation  of 
alternatives,  three  methods  are  supported  by  Co— oP: 
direct  assessment,  AHP  and  ELECTRE.  The  results  of 
this  process  are  given  in  Figures  IQ  to  22. 

(fl)  Group  Result 

The  group  result  is  displayed  in  Figure  23.  It  is 
a  combination  of  the  outcomes  generated  by  three 
decision  makers.  Figure  23  suggests  that  TYPE3  is 
the  best  one,  with  an  overall  score  of  .34. 


SCENARIO  2:  COLLECTIVE  ASSESSMENT  AT  THE  STAFF  LEVEL 

To  illustrate  the  Co-oP  ability  to  handle  group  decision 
making  situations  where  division  of  evaluation  tasks  does 
not  apply,  this  scenario  is  identical  to  the  first  one  with 
the  exception  in  that  there  are  only  four  evaluation 
criteria.  Furthermore,  these  criteria  are  used  by  all 
decision  members  for  evaluating  alternat i ves. 

(1)  Decision  alternat ives:  Same  as  in  Scenario  1 


(2)  Decision  makers:  Same  as  in  Scenario  1 

(3)  Decision  making  norms: 

Figure  24  is  an  actual  display  screen  of  the 
interactive  norm  definition  process. 

(4)  Decision  making  procedures: 

Unlike  in  scenario  1,  each  decision  member  assesses 
the  alternatives  according  to  all  of  the  criteria 
that  are  defined  for  the  problem  (See  Figure  25). 
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Evaluation  Criteria: 


For  the  sake  of  simplicity,  this  example  retains 
only  four  principal  criteria,  i.e.,  ’gun  systems’, 
’electronics’,  ’engine’  and  ’cost’. 


Individual  Prior it i zat ion  of  Evaluation  Criteria: 


Figures  27  and  28  display 
pr ior it i zat ion  process  of  the 
In  order  to  reduce  the 
iteration,  the  criteria  that 
eliminated  (Figure  29). 


the  outputs  of  the 
first  decision  maker, 
number  of  evaluation 
score  low  values  are 


Individual  Evaluation  of  Alternat ives 


The  results  of  this  process  are  given  in  Figures  30 
to  41. 


Group  Result 


The  group  results  are  displayed  in  Figure  24 
(computed  by  the  Direct  Mode)  and  Figure  25 
(computed  by  ELECTRE).  With  the  direct  mode,  TYPE  2 
is  first  in  all  aggregation  of  preferences 
techniques,  including  the  suma-of-the-ranks,  the 
additive  ranking,  the  multiplicative  ranking  and  the 
sum-of-outranking-relat ions.  This  result  is 
confirmed  by  the  ELECTRE  mode.  Note  that  in  the 
latter  mode,  only  the  sums-of-the-ranks  and  sums-of- 
out rankings  relations  are  computed. 


IX.  CONCLUSIONS 


This  thesis  was  concentrated  on  the  extension  of  a  the 
Co-oP  decision  support  system  for  multiple  criteria  group 
decision  making.  The  development  focused  in  the  creation  of 
a  computer-based  comrnunicat  ions  framework  for  supporting 
decision  making  situations  that  are  distributed  in  time  and 
in  space.  The  software  is  written  in  Pascal  and  is 
operational  in  a  network  of  three  personal  computers. 

ft  naval  warship  selection  problem  was  discussed  to 
illustrate  the  usefulness  of  the  implemented  group  decision 
support  system. 

However,  the  proposed  decision  suppport  system  can  only 
be  applied  to  a  certain  class  of  decision  situations.  In 
effect,  the  decision  makers  are  assumed  to  be  cooperative, 
and  knowledgeable  about  multiple  criteria  decision  making. 
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APPENDIX  A 


THE  PROGRAM  LISTING 


PROGRAM  GDSS  (  INPUT  ,  OUTPUT  )  ; 

<$v-,  i — > 

LABEL 

normdef , back, solvel , sol ve£, solve3, 
tel os  ,  create  ,  gdssl,nai,  10  ,  £0  ,  30 

CONST 

s  i  ze 

posit  ion  1 
pos l t i on£ 
posit ion3 
maxcr it  1 
rnaxcrit£ 
rnaxcr  it3 
windows 
number 


TYPE 

name  =  string  [size]  ; 

ask  =  string  C53 ; 

color  =  string  C£S3  ; 

numS  =  array  C 1 . . Maxcr i t 1 , 1 . . Maxcr i t 1 3  of  integer 

level  =  array  C 1 .  . Maxcr i t 1 , 1 .. Maxcr i t 1 3  of  name  : 

vectors  =  array  Cl .. Maxcr it  1 ,  1 .. Maxcr i 1 1 3  of  real  ; 

niatrix£0  =  array  C1..£0,  l..£0  3  of  real  : 

arayl  =  array  Cl.. 9,1.. S3  of  real  ; 

Title  =  array  C 1 . . Maxcr it  1 3  of  name  ; 

numl  =  array  C 1 . . Maxcr i t 1 3  of  integer  ; 

vector si  =  array  C 1 . . Maxcr i t 1 3  of  real  ; 

vectorg  =  array  C1..1E53  of  name  ; 

vectorn  =  array  Cl..l£53  of  real  ; 

vectorf  =  array  Cl.. £03  of  real  ; 

tit  lei  =  array  Cl.. £03  of  name  ; 

nameS  =  array  Cl.. 63  of  name  ; 
arrays  =  array C 1 . . 9, 1 . . 93  of  char  ; 
elpida  =  arrayC1..43  of  char  ; 


c.5 


=  13  ; 

=  £1  ; 

=  5  ; 

=  5  ; 

=  5  ; 

=  3  ; 

:  array C 1 .. Wi ndows, 1 .. 43  of  Integer 
=  <  <  £,  £,  73,  13  )  , 

(  £,  15,  78,  £1  )  , 

(  £  £3,  73,  £4  )  >  ; 
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Casel 


record 


narnel  :  name  ; 
numof problem, levels, 

numof alternat i ves  , numof users  :  integer 
level2, level3, level4, levels, 

level6, level7  :  level  ; 
level  1  :  title  ; 

sublevel  1  :  numl  ; 

sublevelS  :  numS  ; 
alternatives  :  tit  lei  ; 

end  <•*  record  *)  ; 


caseS  =  record 

pfactor, qfactor  :  real  ; 
numofcriteria  :  integer  ; 
numofalternat ives  :  integer  ; 
alternatives  :  tit  lei  ; 
numofusers  :  integer  ; 
solved  :  array  Cl.. 3D  of  boolean  ; 
grading  :  arayl  ; 

Completed  :  boolean  ; 

completedall  :  boolean  ; 

vectorl  :  vectors  1  ; 

vectors,  vectors,  vector-4, 

vectors, vector6, vector7  :  vectors  ; 

norm vectorl  :  vectorg  ; 

normvectorS  :  vectorn  ; 

normindex  :  vectorg  ; 

altrnatrix  :  rnatrixSlZI  ; 

finalindex  :  array  Cl.. 31  of  boolean  ; 
Final  index  1  :  array  Cl.. 3D  of  boolean  ; 

flhp  :  record 

status  :  boolean  ; 
alt vectorl  :  vectorf  ; 
numof tries  :  integer  ; 

end  ; 

elect  re  :  record 

status  :  boolean  ; 
outranking  :  array9  ; 
numoftries  :  integer  ; 

end  ; 

end  ; (*  record  *) 

solutionl  =  record 

username  :  name  : 
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userid  :  name 
numofcr iter ia  :  integer  ; 
normvectorl  :  vectorg  ; 
normvector£  :  vectorn  ; 
numof alternat ives  :  integer  ; 
alternatives  :  tit  lei  ; 
ahp  :  record 

status  :  boolean  ; 
numoftries  :  integer  ; 

altvectorl  :  vectorf  ; 

end  ; 

elect re  :  record 

status  :  boolean  ; 
numoftries  :  integer  ; 
outranking  :  arrayS  ; 
end  ; 

end  ;  record  *) 

norml  =  record 

numofusers  , 
modi fyt irnes, 
lasttime  :  integer  ; 
usersnames  :  name£  ; 
specindex  :  title  ; 
users  ids  :  narneiS  ; 
weight  :  vectors 1  ; 

currentnarne  :  name  ; 

agregat ion, 
nai , 

special i zed, 

broadcast i ng , 

modify  :  boolean  ; 

agregat ionname  :  elpida  ; 

end  ;  (*  record  *) 


VAR 

problemfile  :  file  of  easel  ; 
problem  , problema  :  easel  ; 
speefile  :  file  of  case£  ; 
speef i le£, speef i lei  :  caseS  ; 
solution,  solutioria  :  solutionl  ; 
solutionfile  :  file  of  solutionl  ; 
norm, norma  :  norml  ; 
normfile  :  file  of  norml  ; 
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basicfile  :  text  ; 

ax:,  a,  b,  c,  al,  bl,  cl,  nurnberx  , 

si,  sS,  s3,  a5,  p3,  ax,  dl,  ab, 

w,  e,  i,  J,  k,  1,  f,  code,  aa, 

line,  position, levels, mal 1  , 

numofa 1 ternat i ves, x 1 , y 1 , codel , 

mal2,  count,  nurnofcriteria,  count  iwes  :  integer 
precent, sum, integerl,  score,  rowl  :  real  ; 
array2  :  title  ; 

alternat i vesl  , alternat i vesx  :  titlel  ; 
extension, prnamel, pruser, answer  , 
norrnname,  answerl,  namex,  idx, 

problnarne,  rnethodx,  prnarne,  pruser3,  specname  :  r 

vector^, vector3, vector4, 

vectors, vectors, vector7  :  vectors  ; 

altrnatrix  :  matrix20  ; 

vector  1 , vectortan  :  vectorsl  ; 

altvectorx, altvector, altvector 1  :  vectorf  ; 

choice, ch  :  char  ; 

answers  :  ask  ; 

color 1, criterial, criteriaS  :  color  ; 

array  1  :  nurnl  ; 

matrixl, result  :  num2  ; 

normvectorl, exchangel  :  vectorg  ; 

normvector3,  norrnvectorS,  exchanges  :  vectorn  ; 

error  :  boolean  ; 

stringl2S, string  129  :  string  Cl 28]  ; 

inte  :  stringC103  ; 
index, indexS  :  boolean  ; 


DIRLIST1. PAS> 
DIRLIST2.  PAS> 
PRQCED. PAS> 
STEP 1- PAS > 
FILES. PAS> 
STEPS. PAS> 
STEPS. PAS  > 
STEP3-1. PAS  > 
STEPS- 1.  PAS  y 
STEP3-2.  PAS > 
STEP4-1. PAS  > 
STEP4-2. PAS  > 
UTILITES. PAS  > 
STEP3. PAS  > 
STEP4. PAS  > 


yj3 

BEGIN  (* 

main  program  *) 

back : 

h 

V-' % 

window 

<  1,1, 80,  S3)  ; 

text  background  (  14  )  ; 

clrscr  ; 

window  (  1,24,80,25)  ; 

text  background  (  white  >  ; 

clrscr  ; 

textcolor  <  black  )  ; 

gotoxy  (  2, 1  )  ; 

write  (  ’multiple  criteria  group  dss  -  main  menu  ’  )  ; 

window  (  1,1,80,23)  ; 

textcolor  (  blue  )  ; 

text background  (  14  )  ; 

gotoxy  (3,2)  ; 

write  (  ’  main  menu  ’  )  ; 

gotoxy  (  3, 4  )  ; 

write  <’l.  Multiple  criteria  group  problem  definition’) 
gotoxy  (  3, 6  )  ; 

write  (  ’  2.  Group  norm  definition  ’  )  ; 

gotoxy  (3,8)  ; 

write  (  ’3.  Prioritization  of  evaluation  criteria  ’  )  ; 

gotoxy  (  3, 10  )  ; 

write  (  ’4.  Individual  evaluation  of  alternatives  1  ; 

gotoxy  (  3, 12  )  ; 

write  (  ’  5.  Direct  input  of  the  data  ’  )  ; 

gotoxy  (3, 14)  ; 

write  <  ’  6.  Computation  of  group  decision  ’  )  ; 

gotoxy  (3, 16)  ; 

write  (’7.  Identification  of  negotiable  alternatives  ’ 

gotoxy  <  3, 18  )  ; 

write  (’  8.  Help  ’  )  ; 

gotoxy <3, 20)  ; 

write  (  ’  9.  Exit  ’  )  ; 

textcolor  (  black  )  ; 

repeat 

gotoxy  (  3,22)  ; 

c 1 reo 1  ; 

write  (’  enter  a  number  :  ’  )  ; 

read  (  answer  )  ; 

val  (  answer , count , code  )  ; 

until  ( <  0  <  count)  and  <  count  <  10  )  and  (  code  =  0  ) 
case  count  of 


1:  goto  create 

2:  goto  normdef 

3:  goto  solvel 

4:  goto  solve2 

5:  goto  solve3 

6:  goto  gdssl 

7:  goto  nai 

8:  goto  back 

9:  goto  telos 


<*  problem  definition  *) 
create : 

stringl28  :=  ’  step  1  :  problem  definition  ’  ; 

diskstatus  ; 

createproblern  (  problem  )  ; 

<*  corect  the  data  of  the  problem  *) 
window  (  1,1,80,17)  ; 

text  background  <  blue  )  ; 

clrscr  ; 

text co lor  (  white  )  ; 

display  (  problem  )  ; 

window  (  1,13,80,23  )  ; 

text  background  (  14  )  ; 

clrscr  ; 

window  (  1,24,80,25  )  ; 

textbackground  <  white  )  ; 

c 1 rscr  ; 

text col or  (  black  )  ; 

gotoxy  (  2, 1 )  ; 

write  (’step  1:  multiple  criteria  group  problem 
def init ion  ’  ) ; 

gotoxy  (2,2)  ; 

write  (  1  correct  the  data  of  the  problem  ’  )  ; 

window  (  1,18,80,23  )  ; 

text  background  (  14  )  ; 

clrscr  ; 

text  co  lor  <  black.  )  ; 

correctdata(  problem  )  ; 

clrscr  ; 

window  (  1,1, 80, 17)  ; 

text  background  <  blue  )  ; 

clrscr  ; 

t  e  x  t  co 1 or  (  white  )  ; 

displayl  (  problem  ); 

window  (  1,18,80,23  )  ; 

text  background  (  14  )  ; 

clrscr  ; 

textcolor  (  black  )  ; 

correctdatal  (problem  )  ; 


openfile  (  prname  )  ; 

wr  iteproblemf  i  le  ; 
goto  back  ; 

<*  norm  definition  *) 
norrndef : 

stringl28  :=  ’  step  2  :  norrndef init ion  ’  ; 

diskstatus  ; 

norrndef  init  ion  ; 

opennorrnf  i  le  (  norrnnarne  )  ; 

writ  enorrn  file  ; 

goto  back  ; 

<*  priority  of  criteria  *> 
sol vel : 

priorityofcr iteria  ; 
goto  back  ; 

(*  evaluation  of  alternatives  *> 
so 1 ve2 : 

computes lternat ives  ; 
goto  back  ; 

<*  direct  input  of  the  data  *) 
solve3: 

stringl28  :=  ’step  5  :  direct  input  of  the  weights’ ; 
diskstatus  ; 
c  1  r scr  ; 

window  <  1,24,80,25)  ; 

textcolor  (  black  )  ; 

text  background  (  white  )  ; 

gotoxy  (2,2)  ; 

c  1  reo 1  ; 

write  (  ’  identification  of  the  problem  ’ )  ; 


VW 


S3 


window  (  1,13,30,23)  ; 

text  background  <  14  )  ; 
clrscr  ; 

readl  ; 

readproblernf  i  le  ; 
read2  ; 

read  nor m file  ; 
read3  ; 

if  (  not  exist  (pruser)  )  then 
beg  i  n 

solution,  ahp.  status  :=  false  ; 
so lut ion. elect re. status  :=  false  ; 
solut ion. ahp. numoftries  :=  0  ; 
sol  ut  ion.  elect  re.  nurnof  tries  :=  0  ; 
Opensol ut ionf i le  (  pruser  ) 
end  ; 

readsol ut ionf i le  ; 

numofcriteria  :=  solut ion. Numofcr iter i a  ; 
nuwofcriteria  :=  solut ion. Numofcr iteria  ; 
normvectorl  :=  solution. Normvectorl  ; 
nornivectorS  :=  solution.  NormvectorS  ; 

read4  ; 

wr itenormf i le  ; 

count  i rues  :  =  so  1  ut  i on.  Ahp.  Nurnof t r  i es  ; 

if  norm. Modify  then 

begin 

if  countimes  <  norm. Mod i fyt irnes  then 
beg  i  n 

count  irnes  :=  countimes  -*•  1  ; 

index  :=  true  ; 
solvewithahp  ; 
end 
else 
begin 

clrscr  ; 
gotoxy  (5,9)  ; 

write  (  ’you  cant  modify  your  output 
gotoxy  (  5, 10  ) ; 

write  (  ’hit  any  key  to  continue  ’) 
read  <  kbd,ch  )  ; 


goto  back  ; 
end  ; 

end 
e  1  se 
beg  i  n 

if  countimes  =  0  then 
beg  in 

countimes  :=  count  irnes  +  1  ; 

index  :=  true  ; 
solvewithahp  ; 
clrscr  ; 
end 
else 
beg  i  n 

clrscr  ; 

got ox y  (  5, 9)  ; 

write  (  ’you  cant  modify  your  output  ’  )  ; 

gotoxy  (  5, 10  ) : 

write  <  ’hit  any  key  to  continue  ’ )  : 

read  (  kbd, ch  )  ; 

goto  back  ; 
end  ; 
end  ; 

goto  back  ; 

<*  gdss  *) 
gdssl : 

stringl2Q  :=  ’step  5  :  computation  of  group  result 
stringl29  :=  ’  ’  ; 

diskstatus  ; 

data  ; 


readproblernf  i  le  ; 
if  norm. special i zed  Then 
beg  in 

if  <  not  exist  <  specnarne  )  )  then 

beg  i  n 

clrscr  ; 
gotoxy (  2,  £  )  ; 

write  (  ’the  problem  is  not  yet  solved  ’  ) 

gotoxy  (2,4)  ; 

write  (  ’hit  any  key  to  continue  ’  )  ; 

read  ( kbd  , ch )  ; 

goto  back  ; 


readspecf i le 


? 


if  (  (specf  i  le2.  Cornpletedal  1 )  and 

(specf i le2. elect re. Status) )  then 
begin 

window  (1,1,80,23)  ; 

t ext  background  (  blue  )  ; 

clrscr  ; 

window  (1,24,80,25)  ; 

text  background  (  white  )  ; 

clrscr  ; 

text co lor  (  black  )  ; 

gotoxy  (  2,  1 )  ; 

write  (  ’step  6  :  computation  of  group  decit ion  ’ 
gotoxy  (  2,2)  ; 

write  (  ’final  result  (elect re)  -  specialized  mode 
window  (1,1,80,23)  ; 

t ext  background  (  blue  )  ; 

clrscr  ; 

text co lor  (  white  )  ; 

for  a  :=  1  to  specf  i  le2.  Nurnof  alternat  ives  do 
beg  i  n 

answer  :=  specf i 1 e2. A1 ternat i ves Cal  ; 
delete  (  answer,  4,  length!  answer  )  )  ; 

gotoxy (  2,  a  +  3)  ; 

write  (  answer:4  )  ; 

end  ; 

for  a  :=  1  to  specf  i  le8.  Nurnof  alternat  ives  do 
beg  i  n 

answer  :=  specf i le2. Alternat ives Cal  ; 
delete  <  answer,  4,  length!  answer)  )  : 

gotoxy  (  5  +  (  a  *  5  )  ,  3  )  ; 

write  (  answer: 3  )  ; 

end  ; 

for  a  :=  1  to  specf i 1 e2.  Nurnof a  1 1 ernat i ves  do 
begin 

for  b  :=  1  to  specf i le2.  Nurnof alternat ives  do 
begin 

gotoxy  (5+<b*5),a+3)  ; 

write  ( specf i le2. E 1 ect re. Out rank ing Ca,  bl  )  ; 

end  ; 
end  ; 

textcolor  (  green  )  ; 

gotoxy  (  5, 10  )  ; 

write  (’*•*  an  outranking  relation  *  is  the  ’  )  ; 
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gotoxy 

< 

5, 

1 1 

) 

5 

wr  i  t  e 

(’ 

one 

that  satisfies  both 

concordance 

got  oxy 

( 

5, 

1£ 

) 

5 

wr  i  t  e 

(’ 

and 

discordance  requirements.  ’ ) ; 

Got  oxy 

( 

5, 

13 

) 

5 

write 

(’ 

-** 

an 

-  indicates  that  there  is  ’  ) ; 

gotoxy 

( 

5, 

14 

) 

s 

wr  i  te 

(’ 

no 

outranking  relations. 

’  )  ; 

Gotoxy 

( 

5, 

16 

) 

5 

wr  i  t  e 

< 

’hit  any 

key  to  continue  ’  ) 

5 

read  ( 

kbd, 

ch 

) 

5 

end 


if  <  (specf  i  le£.  Cornpletedal  1  )  and  (specf  ile2.  flhp.  Status  >) 

then 
beg  i  n 

altvectorl  :=  specfileS. flhp. flltvectorl  ; 


window  (1,1,38, £3)  ; 

t ext  background  (  blue  )  ; 

clrscr  ; 

window  ( 1 , £4, 30, £5 )  ; 

text  background  (  white  )  ; 

clrscr  ; 

text co lor  (  black  )  ; 

gotoxy  (  £,  1  )  ; 

write  (  ’step  6  :  computation  of  group  decit ion  ’  )  ; 

gotoxy  <£,£); 

write  (  ’final  result  (ahp)  -  specialized  mode  ’  )  ; 

window  <1,1,30,  £3)  ; 

text  background  <  blue  )  ; 

clrscr  ; 

text co lor  (  white  )  ; 


gotoxy  (  £, 3  )  ; 

write  (  ’  final  solution  ’  )  ; 

for  al  :  =  1  to  problem.  Murnofalternat  ives  do 
begin 

text co lor  (  white  )  ; 

gotoxy  (  (  (  5  *  al  ) )  ,  13  )  ; 

write  (  copy  (  problem. fllternat ivesCal],  1,3)  )  ; 

gotoxy  (  <  <  5  *  al  ) )  ,  £0  )  ; 

text col or  (  red  )  ; 

write  (  altvectorl Cal3 :3:£  )  ; 

end  ; 


t ext  background  (  red  >  ; 


for  al  :=  1  to  problem. Numof alternat ives  do 
begin 

gotoxy  <  (5  +  (  5  *  al  ) )  , 17  )  ; 

for  bl  :=  1  to  round <  al t vector 1  Cal 1  *  10  ) 

begin 

gotoxy  (  <  (  5  *  al  ))  , (17  -bl)  )  ; 

write  (  ’  ’ )  ; 

end  ; 
end  ; 

text  background  (  blue  )  ; 

gotoxy  (  2, 22)  ; 

write  (  ’hit  any  key  to  continue  ’  )  ; 

read  (  kbd  , ch  )  ; 

end 

else 

c 1 rscr  ; 
gotoxy (  2, 2  )  ; 

write  (  ’the  problem  is  not  yet  solved  ’  )  ; 

gotoxy (  4, 2  )  ; 

end 

else 

gdss  ; 

goto  back  ; 

(.*  nai  *■) 

nai  : 

(*  not  avaiable  yet  *) 
goto  back  ; 
tel  os : 

END  .  <*  MAIN  PROGRAM  *) 


INCLUDE  FILE  STEP1 


PROCEDURE  CREATEPROBLEM  (  var  probl  ern  :  easel  )  : 

LABEL 

1 12>,  20  ,  30  ; 

VAR 

axz  :  integer  ; 
strl,str2  :  name  ; 
codel  :  integer  ; 
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BEGIN 


text mode  (  cS0  )  ; 

clrscr  ; 
gotoxy  <  1,2)  ; 

clearl (problem  )  ; 

problem. Levels  :=  0  ; 
for  c  :=  1  to  5  do 

problem. Sublevel 1  Cel :  =  0  ; 
for  c  :=  1  to  5  do 
begin 

for  b  :=  1  to  5  do 

problem. Sublevel£Cc,  bl  :=  0  ; 

end  ; 

text  background  (  black  )  ; 

text co lor  (white  >  ; 

window  (  1,1,30,23)  ; 

t ext  background  (  14  )  ; 

clrscr  ; 

window  (  1,24,80,25)  ; 

text  background  (  white  >  ; 

clrscr  ; 

text co lor  (  black  )  ; 

gotoxy (2,1)  ; 

write  (’step  1  :  multiple  criteria  group  problem 

def in it  ion  1  )  ; 
gotoxy (2, 2  )  ; 

write  (  ’definition  of  alternatives  *  hit  q  to  st 
window  (  1,1,30,23)  ; 

text  background  (  14  )  ; 

clrscr  ; 

gotoxy  (  2, 2  )  ; 

text col or  (  black  )  ; 

write  (  ’  enter  the  name  of  the  problem  :  ’ )  ; 

read  (  answer  )  ; 

prnamel  :=  answer  ; 

de 1 et e ( answer, 3, 1 ength ( answer )  )  ; 

prname  :=  eoncat (answer  , ’ . Def ’  )  ; 


problem.  Narnel  :=  answer  ; 

gotoxy  (  1,2); 

c 1 reo 1  ; 

gotoxy  (  3, £  )  ; 

write  (’  name  of  problem 

1  i  ne  :  =  4  ; 

a  :  =  0  ; 

b  :  =  0  ; 


stop  ’  ) 


’ ,  answer  )  ; 


^ 
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pcs i t i on  : = 
c  :  =  0  ; 
got  oxy  < 1 ,  1 i ne  )  ; 

clearscreen  (  line  )  ; 

got oxy  (  3, 4  )  ; 

write  (  ’  enter  the  alternatives  :  ’  )  ; 

a5  :  =  0  ; 

while  ((  answer  <>  ’  q’  )  and  (  a5  <  19  )  )  do 

beg  i  n 

got oxy  (  42,  (  4  +  a5  )  )  ; 

a5  : =  a5  +  1  ; 

write  (  ’  ’  ,  a5,  ’  .  ’  )  ; 

Read  <  answer  )  ; 

answer  :=  st upcase ( answer )  ; 

problem. Alternatives  Ca53  :=  answer  ; 
end  ; 

problem. Numof alt ernat ives  :=  a5-l  ; 
for  a5  :=  1  to  10  do 
beg  i  n 

got oxy  (  1,  a5  +  2  )  ; 

clreol  ; 

end  ; 

window  (  1,24,80,25)  ; 

text  background  <  white  >  ; 

clrscr  ; 

text co lor  (  black.  )  ; 

got  oxy  <  2,  1 )  ; 

write  (’step  1  :  multiple  criteria  group  problem 

def init ion  ’  )  ; 
got oxy (2,  2  )  ; 

write  (’definition  of  criteria  *  1 ) st  level  2) nd  level 

3) nd  level  q)uit’  >  ; 

window  (  1,1,80,23)  ; 

text  background  (  14  )  ; 

text  col  or  (  black.  )  ; 

repeat 

got oxy  (  3,  line  )  ; 

write  (  ’  enter  the  number  of  the  level  :  ’  )  ; 

read  (  answer  )  ; 

answer  :=  st upcase ( answer )  ; 

1 i ne  : =  4  ; 
del  1 i ne  ; 

until  (answer  =  ’ 1’ )  or  (answer  =  ’2)  or  (answer  =  ’ 3’ ) 

while  answer  <>  ’q’  do 

begin 

clearscreen  (  line  )  ; 
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30 


beg  in 

gotoxy (5, 1 ine  ) 
c  1  reo  1  ; 

textcolor  <  yellow  )  ; 

position  :=  positions  ; 

:  clearscreen  <  line  )  ; 

textcolor  (  yellow  )  ; 

gotoxy  <  posit  ion,  1 ine  )  ; 

write  <a,  *  .  *  ,  b,  ’  .  ’  ,  c+1  )  ; 

Gotoxy  (position  +7  ,  line  )  ; 

read  (  answer  )  ; 

answer  :=  st upcase (answer ) ; 

while  answer  =  ’3’  do 

beg  i  n 

gotoxy  (  position  +7  ,  line  >  ; 

c 1 reo 1 ; 

read  (  answer  )  ; 

answer  :=  st upcase ( answer )  ; 
end  ; 


if  (  answer  <>  ’  £’  )  and 

and  (  answer  <>  ’  q’  ) 

beg  in 

c  :=  c  +1  ; 
case  a  of 

1  :  problem. Level3Cb, 
£  :  problem. Level4 Cb, 

3  :  problem. LevelSCb, 

4  :  problem. LevelSCb, 

5  :  problem. Level 7Cb, 


(  answer  <>  ’ 


oJ  :  — 

answer 

cl  :  = 

answer 

cl  :  = 

answer 

cl  2  = 

answer 

eJ  :  = 

answer 

1’ 


1 ine  : =  1 ine  +  1  ; 

goto  30 
end  ; 
end  ; 

problem. Sublevel£ Ca, bl  :=  c  : 
end  ; 


window  (1,1,30,  £5  )  ; 

c 1 rscr  ; 


END  ; 


then 


PROCEDURE  DISPLAY  (  problem  :  easel  )  ; 

VAR 

line  ,  a  ,  b  ,  c  , col  1 , col£, col3  :  integer  ; 
change  :  boolean  ; 


7£ 


BEGIN 


gotoxy (3,  1 )  ; 

t  ext co lor-  <  wh  i  t  e  ); 

1 i ne  : =  2  ; 
coll  :  =  2  ; 
change  :=  false  ; 

for  a:=l  to  problem. levels  Do 

begin 

if  (  length (problem,  level  1  Cal )  >  1  )  Then 

begin 

textcolor (white)  ; 
if  (  line  >  14  )  then 

beg  i  n 

coll  : =  coll  +  30  ; 

1 ine  :  =  2  ; 
change  :=  true  ; 

end  ; 

if  (  (  line  >  14  )  and  (  change  )  )  then 

beg  i  n 

col  1  :=  col  1  +  £0  ; 

1 i ne  : =  2  ; 
end  ; 

gotoxy(  coll, line  )  ; 

writeln  (a,  ’.  ’  , Problem. Level  1  Cal  ); 

1 i re : = 1 i  ne-*-  1  ; 

for  b  :=  1  to  problem. Sublevel  1  Cal  do 
beg  i  n 

textcolor  <  red  )  ; 

if  (length  (problem. Level2 Ca, bl  )  >  1  )  th 

begin 

if  <  line  >  14  )  then 

beg  i  n 

coll  :=  coll  +  30  ; 

1 i ne  : =  2 ; 
change  :=  true  ; 
end  ; 

if  (  (  line  >  14  )  and  (  change  )  )  then 

beg  in 

co 11  : =  coll  +  £0  : 

1 i ne  : =  2  ; 
end  ; 

gotoxy  (  col  1  +  1,  line  )  ; 

write (a, f . * , B, ’  ’,  prob 1 em. Leve 1 2 Ca, bl > ; 

1 i ne  : =  1 i ne  +  1  ; 

for  c:=l  to  problem. Sublevel2Ca, bl 
begin 

textcolor  (  yellow  )  ; 


do 


1 :  beg i n 

if  < length < problem. Level3Cb, cl )> 1 )  then 
beg  i  n 

if  (1 ine  >  15  )  then 

beg  i  n 

coll  :=  coll  +  30  ; 
line  :=  2  ; 
change  :=  true  ; 
end  ; 

if  < (line) 14)  and  (change))  then 
beg  in 

co 11  : =  co 11  +  £0  ; 
line  :=  2  ; 
end  ; 

gotoxy  (  col  1+2,  line  )  ; 

write (a,  ’ . ’ , B, ’ . ’ , C, ’ 

prob  1  ern.  Level  3  C  b,  cl  )  ; 

1 i ne  : =  1 i ne  +  1  ; 

end  ; 
end  ; 
i :  begin 

if  ( length < problem. Level 4 Cb, cl )> 1 )  then 
begin 

if  (  1 i ne  >  15)  then 

beg  in 

coll  : =  coll  +  30  ; 
line  :=  2  ; 
change  :=  true  ; 
end  ; 

if  (  <  line  >  14  )  and  (  change  )  )  then 

beg  i  n 

co 11  : =  co 11  +  £0  ; 

1 i ne  : =  2  ; 
end  ; 

gotoxy  <  col  1+2,  line  )  ; 

wr ite (a, ’ . ’ , B, ’ . ’ , C, ’ 

prob  1  ern.  Leve  1 4  Cb,  cl  )  ; 

1 i ne  : =  1 i ne  +  1  ; 

end  ; 
end  ; 
begin 

if  (  length  (  prob  1  ern.  Leve  1 5  Cb,  cl  )  >  1  )  then 
beg  i  n 

if  <1 ine  >  15  )  then 

beg  in 

coll  :=  coll  +  30  ; 

1 ine  : =  2  ; 
change  :=  true  ; 


PROCEDURE  DISPLAY!  (  problem  :  easel  )  ; 


VOR 

line  :  integer  ; 

BEGIN 

gotoxy (3, £)  ; 

t  e x  t  co 1 or ( wh i t  e  )  ; 

write  (  'alternatives  :  ’  )  ; 

for  line  :=  1  to  problem. numofalternat ives  Do 
begin 

gotoxy  (  4, line  +  3  )  ; 

write  (line, ’ .  ’,  problem.  alternativesClinel  > 

end  ; 

END  ; 


PROCEDURE  CQRRECTDftTfl  (  var  problem  :  easel  )  ; 

BEGIN 
repeat 

gotoxy  (  1 , £  )  ; 

write  (’do  you  want  to  modify  the  criteria  (y/n 
Repeat 

gotoxy (47, £  )  ; 

clreol  ; 

read  (  answer  )  ; 

answer  :=  st upcase ( answer >  ; 

until  (  (  answer  =  ’ y’ >  or  (  answer  =  ’ n'  )  ) 

if  answer  =  ’ y’  then 
begin 

gotoxy  (1,4)  ; 

write  (’enter  the  tree  level  (  e.  g.  ,  £.  1.3  ) 
Gotoxy  (  47, 4  )  ; 

read  (answer£) ; 


answers  :=  stupcase (answers) ; 
gotoxy  (  1,6  )  ; 

write  (  ’  name  of  criteria  ’ ,  answers 

gotoxy  (43, 6) ; 
write  (  1  ?’  >  ; 

Gotoxy (47, S)  ; 
read (  answerl)  ; 
w  :  =1  ; 

convert  (  answers, w, d 1 )  ; 

al  :=  dl  ; 
w  :  =  3  ; 

convert  (  answers, w, d 1 >  ; 

bl  : =  d 1  ; 


convert  (  answers, w, d 1 )  ; 

cl  : -  d 1  ; 

if  (cl  =  ®  )  and  (bl  =  0  )  and  (  al  <)  0  )  then 
problem. Level  1  Cal  3  :  =  stupcase (  answerl)  : 

if  (  al  >  problem. levels  )  Then 

problem.  Levels  :=»  problem.  Levels  +  1  ; 
if  cl  =  0  then 
begin 

problem. Level S Cal , bl 3  :=  stupcase (  answerl)  ; 

if  (  bl  >  problem. Sublevel  1  Call  )  then 
problem. Sublevel  1  Cal  3  :=  problem. Sub leve 1 1  Cal  3  + 1 

end 

else 

begin 


al  of 

problem. Level3Cbl, cl  3 
problem. Leve 14  Cbl , c 1 3 
problem. Leve 1 5  Cbl , el3 
problem. Leve IS  C  b 1 , c 1 3 
probl em. Level 7  Cbl, c 1 3 


stupcase (  answerl) 
stupcase (  answerl) 
stupcase (  answerl) 
stupcase (  answerl) 
st  upcase (  answer i ) 


if  (  cl  >  prob 1 em. Sub  1  eve  1  2 Ca 1 ,  b 1 3  )  then 

probl em. Sub l eve 12Cal,bl3  : =prob 1 em. Sub 1 eve  121, b 1 3  + 1 
end  : 


gotoxy  (  47,2  ) 
clreol  ; 

gotoxy  ( 47,  4  )  ; 

clreol  ; 
gotoxy  (  47,  6  ) 
clreol  ; 
al  :=0  ;  bl  := 
end  ; 

unt i 1  answer  =  ’  n’ 


bl  : =  0  ;  cl  :=0 


1  v  vr.i  *j  w ■  ■ 


m 


PROCEDURE  CQRRECTDATA1  <  v«r  problem  :  easel  )  ; 

BEGIN 

repeat 

gotoxy  (  1,2  )  ; 

write  (’do  you  want  to  modify  the  alternatives  (y/n)°) ; 
Repeat 

gotoxy (52, 2  )  ; 

clreol  ; 

read  <  answer  )  ; 

answer  :=  st upcase < answer )  ; 


unt  i  1 


( (  answer  =  ’ y’ )  or  (  answer 


—  ? 


rr 


>  ) 


if  answer  =  ’ y’  then 


begin 

gotoxy  (1,4)  ; 

write  (’enter  the  number  of  the  alternat  ive  (e.  g.  ,  3)  ?’  ) 
Gotoxy  (  53, 4  )  ; 

read  (answers) ; 

answer^  :=  stupcase(answerS) ; 


gotoxy 


1,6  ) 


answer^' 


) 


write  (’  name  of  alternative 
gotoxy  (33, 6) 
write  (  ’  ?’  ) 

Gotoxy (37,  6) 
read (  answerl)  ; 
val (answer2, a, code)  ; 

problem- alternat ivesCaD  :=  St upcase ( answer  1 )  ; 

gotoxy  (  47, 2  )  ; 

clreol  ; 

gotoxy  (47,4  )  ; 

c 1 reo 1  ; 

gotoxy  (  47,6  )  ; 

clreol  ; 
end  ; 

unt i 1  answer 


=  7  n’ 


END 


INCLUDE  FILE  STEP2 


OVERLAY  PROCEDURE  NORMDEFINITION 
VAR 

xl,yl, limit  :  integer  ; 
counts  :  real  ; 
lasthour  :  stringC22D  ; 
prob  1  ernname  1  :  name  ; 


VO’ 

i 
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V_V  W  V 


o 


BEGIN 

window  <  1,1,80,22)  ; 

t ext  background  (  14  )  ; 

clrscr  ; 

window  (  1,24,80,25)  ; 

text  background  (  white  )  ; 

clrscr  ; 

textcolor  (  black  )  ; 

gotoxy  (  2, 1 )  ; 

write  (  ’  step  2  :  group  norm  definition  ’  ) 

window  (  1,1,80,22)  ; 

text  background  <  14  )  ; 

clrscr  ; 

textcolor  (  black  )  ; 

gotoxy  (  2, 2)  ; 

write  (  ’name  of  the  group  norm  ’ )  ; 

gotoxy  <  25, 2) ; 
write  (  1 ?  ’  )  ; 

Read  (  answer  )  ; 

norm. Current name  :=  st upcase < answer )  ; 

delete  (  answer, 8, length (answer )  )  ; 

norrnname  :=  concat  (  answer  ,  ’  .  Gn’  )  ; 

textcolor  (  blue  )  ; 

gotoxy  <  2,  4  )  ; 

write  (  ’1.  Identification  of  group  members 
textcolor  (  black  )  ; 

gotoxy  (  5,  S)  ; 

write  <  ’1.1  Number  of  group  members  (  max 

gotoxy  (  52, S  ) ; 
write  (  ’ ?  ’  )  ; 

Count 3  :=  0  ; 

xl  : =  55  ;  yl  :=6  ;  limit  : =  4  ; 
checknumber  (  answer  ,  x 1 , y 1 ,  1 imi t , count 3  ) 
norm. Nurnof users  :=  trunc (  count 3)  ; 

for  a  :=  1  to  trunc (  count 3)  do 
begin 

gotoxy  (  9, S+a  )  ; 

write  (’  -  name  of  member  #  ’  ,  a  >  ; 

gotoxy  (  52, S+a  ) ; 
write  (  ’ ?  ’  )  ; 

Gotoxy  (  55, 6+a  )  ; 

read  (  answer  )  ; 

norm. Usersnames Cal  :=  st upcase ( answer )  ; 

end  ; 

gotoxy  (  5, a+7  )  ; 


m 


write  (’1.2  Id  of  member  norm. UsersnamesCl]  ) 

gotoxy  (  52, 7+a  ) ; 
write  (  ’ ?  ’  )  ; 

Gotoxy  (  55,  a+7)  ; 

read  (  answer  )  ; 

norm. Usersids C 1 3  :=  st upcase ( answer )  ; 

gotoxy  (  2, 12  )  ; 

text co lor  (  blue  )  ; 

write  (  ’2.  Group  decition  techniques  ’  )  ; 

textcolor  (  black  )  ; 

gotoxy  (  5, 14  )  ; 

write  (  ’  2.  1  Weighted  ma  jority  rule  :  ’  )  ; 

gotoxy  (  9, 15)  ; 

write  (  equal  weights  (y/n)’  )  ; 

gotoxy  (  52, 15  ) ; 
write  (  ’ ?  ’  )  ; 

XI  : -  55  ;  y 1  : =  15  ; 

identify  (  answer  , xl,yl  )  ; 

if  answer  =  ’ y’  then 
begin 

for  a  :=  1  to  norm.  Nurnof users  do 
norm.  We i ght Cal  :=  1 

end 
e  1  se 
beg  in 

for  a  :=  1  to  norm. Nurnof users  do 
beg  i  n 

gotoxy  (  12, 15  +  a  )  ; 

write  (  ’  —  weight  for  ’,  norm.  Usersnarnes  Ca]  ) 
gotoxy  (  52, 15+a  ) ; 
write  (  ’ ?  ’  )  ; 

Count3  :=  0  ; 

xl  :  =  55  ;  yl  : =  (  15+  a  )  ;  limit  :=  100  ; 

checknumber  (  answer  ,  x 1 , yl , 1 imi t , counts  )  ; 

norm. Wei ght Cal  :=  counts  ; 
end  ; 
end  ; 
clrscr  ; 

gotoxy  (  5, 2)  ; 

text  co lor  (  blue  )  ; 

write  (  ’2.2  Collective  evaluation  mode  ’  )  ; 

gotoxy  (  a, 4  )  ; 

textcolor  (  black  )  ; 

write  (  ’  choose  one  of  the  following  modes  :  ’ ) 
gotoxy  (  10, 6)  ; 

write  (  ’  <1>  each  group  member  will  evaluates 

alt ernat i ves’  )  : 


gotoxy 

( 

10,  7) 

5 

wr  i  t  e 

( 

1 

according  to  all  criter 

ia.  ’ 

got  oxv 

( 

10,  8) 

5 

wr  i  t  e 

( 

<£>  Each  group  member  will 

eva  1 

alternatives' ) ; 

gotoxy 

( 

10,  9) 

5 

wr  i  t  e 

(’ 

according  to  his  exclusive  an 

expert i se. ’  )  ; 

gotoxy 

( 

8,  1 1 ) 

5 

write ( 

i 

Enter  a  number  ?  ’  )  ; 

Count 3 

; 

=  0  ; 

xl  :  = 

31 

;  yi 

: =  11  ;  limit  : =  £  ; 

checknumber  < 

answer  ,  xi,yl, limit, count 3 

)  ; 

if  answer  =  ’1’  then 

norm. Special i zed  :=  false 
e  1  se 
deg  i  n 

norm. Special i zed  :=  true  ; 

a  :=  0  ; 

repeat 

gotoxy  (  8,  13)  ; 

c 1 reo 1  ; 

write  (  ’  the  name  of  the  problem  ?  ’  ) 

Read  (  answer  )  ; 

delete  <  answer  , 8,  length (answer)  )  ; 

prnarne  :=  concat  (  answer  ,  ’  .  Def  ’  )  ; 

norm. normnamex  :=  prnarne  ; 

Prob  1  ernnarne  1  :=  answer  ; 

until  exist  (  prnarne  )  ; 

readproblernf  i  le  ; 

for  a:=  1  to  problem. Levels  do 
beg  i  n 

gotoxy  (  IS,  14  +  a  )  ; 

write  (  name  of  user  for  critiria 

’ ,  prob 1  am. Leve 1 1  Cal ,  ’  n  ’  )  ; 
error'  :=  false  ; 
repeat 

gotoxy  (  54, 14  +  a  )  ; 

clreol  ; 

read  (  answer  )  ; 

answer  :=  stupcase  (  answer  )  ; 

for  b  t—  1  to  norm. numof users  do 
beg  i  n 

if  answer  =  norm.  usersnarnesCbl  then 


error 


t  rue 


1 


Norm. Spec index Ca3  :=  answer  ; 
end  ; 
end  ; 

clrscr  ; 
gotoxy  <  5,2)  ; 

write  <  ’2.3  Automatic  selection  of  techniques 
gotoxy  <  5, 3)  ; 

write  (  ’  aggregation  of  preference  (y/n)’) 

gotoxy  (  52, 3) ; 
write  (  ’ ?  ’  )  ; 

XI  :  =  55  ;  y 1  : =  3  ; 
identify  (  answer  ,  xl,yl  )  ; 

if  answer  —  ’ y1  then 

norm. Agregat ion  :=  true 
e  1  se 
begin 

norm. Agregat ion  :=  false  ; 
a  s  =  <21  ; 
gotoxy  (  9, 5)  ; 

write  (  ’ —  rl  :  sum  of  ranks  (y/n)  ’  )  ; 

gotoxy  (  52,  5)  ; 
write  (  ’  ?  ’  )  ; 

XI  :=  55  ;  yl  :=  5  ; 
identify  (  answer  ,xl,yl  )  ; 

if  answer  =  1 y1  then 
begin 

a  :  =  a  +  1  ; 

norm.  Agregat  ionname Call  :=  ’  1’  ; 

end 
e  1  se 
beg  i  n 

a  :  =  a  +  1  ; 

norm.  Agregat  ionname  Call  :=  ’e’  ; 

end  ; 

gotoxy  (  9, 6)  ; 

write  (’—  r2  :  sum  of  outranking  relations 
gotoxy  (  52, S) ; 
write  (  ’ ?  ’  )  ; 

XI  :=  55  ;  yl  :=  6  ; 
identify  (  answer  ,  xl,yl  )  ; 

if  answer  =  ’ y’  then 
begin 

a  :  =  a  +  1  ; 

norm.  Agregat  ionnarne  CaD  :=  ’2’  ; 

end 
else 
beg  i  n 

a  :  =  a  +  1  ; 


norm. flgregat ionnarne Cal  :=  ’  e’  ; 
end  ; 

gotoxy  (  9,  7)  ; 

write  (’—  r3  :  additive  ranking  (y/n)’ 
gotoxy  <  52,  7)  ; 
write  (’  ?  ’  )  ; 

XI  : =  55  ;  y 1  : =  7  ; 
identify  (  answer  ,xi,yl  )  ; 

if  answer  =  ’  y’  then 
begin 

a  :  =  a  +  1  ; 

norm,  flgregat  ionnarne Cal  :=  ’3’  ; 

end 
e  1  se 
beg  i  n 

a  :  =  a  +  1  ; 

norm,  flgregat  ionnarne  [a]  :=  ’s’  ; 

end  ;  . 

gotoxy  <  3, 3)  : 

write  (’-  r4  :  multiplicative  ranking 
gotoxy  <  52, 3) ; 
write  <  ’ ?  ’  )  ; 

XI  : =  55  ;  y 1  : =  Q  ; 
if  answer  =  ’ y’  then 
beg  i  n 

a  :  =  a  +  1  ; 

norm,  flgregat  ionnarne  Call  :=  ’4’  ; 

end 
e  1  se 
beg  i  n 

a  :  =  a  +  1  ; 

norm. flgregat ionnarne Ca3  :=  ’  e’  ; 
end  ; 
end  ; 

gotoxy  <  5, 9)  ; 

write  (  ’2.4  Automatic  computation  of  nai 
gotoxy  (  52, 9) ; 
wr ite  (  ’ ?  ’  )  ; 

XI  :  =  55  ;  y 1  : -  9  ; 
identify  (  answer  ,xl,yl  )  ; 

if  answer  =  ’ y’  then 
norm. Nai  :=  true 
e  1  se 

norm. Nai  :=  false  ; 
elrscr  ; 
gotoxy (  2, 2)  ; 

text co lor  (  blue  )  ; 

write  (  ’3.  Information  exchange  ’  )  ; 

text col or  <  black  )  ; 

gotoxy  (5, 4)  ; 


( v  /  n ) 


(  y  /  n ) 


33 
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write  <  ’3.1  Broadcasting  of  individual  outputs  <y/n)’  )  ; 

gotoxy  (  52, 4) ; 
write  (  ’  ?  ’  )  ; 

XI  : =  55  ;  y 1  : =  4  ; 
identify  (  answer  ,  xl,yl  )  ; 

if  answer  =  ’ y’  then 

norm. Broadcast ing  :=  true 
e  1  se 
begin 

norm. Broadcasting  :=  false  ; 
end  ; 

gotoxy  (  5,  5)  ; 

write  (  ’ 3. S  Permission  to  modify  individual  analyses  ’  )  ; 

gotoxy  (5,6)  ; 

write  (  ’  after  group  analyses  (y/n)  ’  )  : 

gotoxy  (  52, 6) ; 

write  (’ ?  ’  >  ; 

identify  <  answer  ,  xl,yl  )  ; 

if  answer  =  ’ n’  then 

norm. Modify  :=  false 
e  1  se 
beg  i  n 

norm. Modify  :=  true  ; 
gotoxy  (  9, 7)  ; 

write  (  ’  3.  2.  1  How  many  times  (max  10  )  ’  )  ; 

gotoxy  <  52,  7)  ; 
write  (  ’  ?  ’  )  ; 

Count 3  :=  0  ; 

checknumber  (  answer  ,  xl,yl, limit, counts  )  ; 

norm.  Mod  i  fyt  irnes  :=trunc(  counts)  ; 
if  norm. Spec i a 1 i zed  then 

norm.  Mod i  f.t  irnes  :=  norm.  Mod i  fyt  irnes  *  norm.  Nurnof  users 

end  ; 

gotoxy  (  5,  8  )  ; 

write  (  ’3.3  Time  limit  to  submit  individuals  results  :  ’  ) 

gotoxy  (9,9)  ; 

write  (  1 3. 3. 1  How  many  days  (max  14  )  ’ )  ; 

got oxy  (  52, 9 ) ; 
wr i t  e  (  ’  ?  ’  )  ; 

Count3  :=  0  ; 

checknumber  <  answer  ,  xl,yl,  limit,  counts  )  ; 

norm. Last t i me  :  =  trunc(  count 3)  ; 

gotoxy  (  9,  10)  ; 

write  (  ’3.3.2  Hours  <  1:00  to  24:00  )’)  ; 

gotoxy  <  52,  10)  ; 
write  (  ’  ?  ’  )  ; 

Gotoxy  (  55,  10)  ; 

read  (  last hour  )  ; 

for  a  :=  2  to  norm.  Nurnof  users  do 
norm. UsersidsCa]  :=  ’X’  ; 

END  ; 


84 


INCLUDE  FILE  STEPS- 1 


V. . 
V  . 


w 

*% p 

» 

WmJ 


PROCEDURE  NORMSELECTION  (  VPR  XI, Y1  :  INTEGER  )  ; 

BEGIN 


gotoxy  (  x 1 , y 1 )  ; 

write  (  ’  name  of  the  norm  ?  ’ )  ; 

Repeat 

gotoxy  (  £3, y 1 )  ; 

clreol  ; 

read  (  answer  )  ; 

norm. Currentname  :=  st upcase ( answer >  ; 

normname  :=  concat  (  answer  ,  ’  .  Gn’  )  ; 

until  (  exist  (  normname  )  )  ; 


END 


PROCEDURE  DISPLflYNORM  ; 
VflR 


rnessagel ,  messages  :  stringC80D  ; 
BEGIN 


window  <  1,1,80,  £5)  ; 

text  background  (  blue  )  ; 

clrscr  ; 


text co lor  (white  )  ; 

readnormfile  ; 
clrscr  ; 

gotoxy  <  2,  £  )  ; 

write  (  ’ name  of  the  group  norm  :  ’  ,  norm. Curr« 

gotoxy  (  £,  3  )  ; 

write  (  ’ 1.  Identification  of  group  members  ' 
gotoxy  (  5, 4)  ; 

write  (  ’1.1  Number  of  group  members  :  . 

norm.  Nurnof  users)  ; 
for  a  :=  1  to  norm. Nurnof users  do 


sjs 

b  *  . 

beg  in 

\V 

got  oxy 

( 

write  ( 

* 

nv 

end  ; 

gotoxy  ( 

£ 

write  (  ’ 

£ 

.v* 

gotoxy  ( 

5 

s£v 

write  <  ’ 

C. 

1 

norm.  Usersnames Ca 3  ) 


gotoxy  (9,11)  ; 

write  (  ’-  weights  of  members  :  ’  )  ; 

for  a  :  =  1  to  norm.  Nuntof users  do 
begin 

gotoxy  <  12  ,  11  +  a  )  ; 

write  <  a,  ’  .  ’  ,  Norm.  Usersriarnes  Cal ,  1 

norm. bei ght Cal : 4 : 2  ); 
end  ; 


if  norm. special i zed  then 
begin 

messagel  :=  ’  Each  group  member  will  evaluate  only 
alternatives’  ; 

message2  :=  ’  according  to  his  exclusive  area  of 

expert ise’  ; 
end 
e  1  se 
beg  l  n 

messagel  :=  ’  each  group  member  will  evaluate 

alt  ernat i ves’  ; 

message2  :=  ’  according  to  all  criteria’  ; 
end  ; 

gotoxy  (  5,  15)  ; 

write  (  ’2.2  Collective  evaluation  mode  :  ’  >  ; 

gotoxy  (  9,  16)  ; 

write  <  messagel  )  ; 

gotoxy  <  9, 17)  ; 

write  (  message2  )  ; 

if  norm. special i zed  then 
begin 

prname  :=  norm. normnamex  ; 
readproblemf i le  ; 

gotoxy  ( 1  1,  18)  ;  write  (  ’ Criteria’  )  ; 

gotoxy (35, 13) ;  write  (  ’user  name’  )  ; 

for  a  : =  1  to  problem. levels  do 
beg  i  n 

gotoxy  (  11, 18  +  a  )  ; 

write  (  problem.  1  eve  11  Cal  )  ; 

gotoxy  (  35, 18  +  a  )  ; 

write  (  norm. specindexCal  )  ; 

end  ; 
end  ; 

Text co lor  (  red  )  ; 

gotoxy  (  2, 25)  ; 

write  (  ’  hit  any  key  to  continue  ’  )  ; 

read  (  kbd  ,  ch  )  ; 

clrscr  ; 

text co lor  (  white  )  ; 

gotoxy  (5,3)  ; 
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write  (  ’2.3  Selection  of  techniques  of  aggregation 

preference  :  ’ )  ; 

if  norm. flgregation  then 
begin 

gotoxy  (  S5, 3)  ; 

write  (  ’  rl  r2  r3  r4  ’  )  ; 

end 
else 
begin 

gotoxy  (  60, 3)  ; 

for  a  :=  1  to  4  do 
begin 

case  norm,  flgregat  ionnarneta]  of 


end  ; 
end  ;  • 
end  ; 


’  1’ 

write 

< 

’  rl 

’  2’ 

wr  i  t  e 

< 

’  r£ 

’  3’ 

write 

< 

’  r3 

’  4’ 

wr  i  t  e 

< 

’  r4 

gotoxy  <  5, 5)  ; 

write  (  ’£.4  Automatic  computation  of  nai  :  1  )  ; 

if  norm. Nai  then 

write  (  ’ yes  ’  ) 

else 

wr i t  e  (  ’ no  ’  )  ; 

gotoxy  (  2,8)  ; 

write  <  ’3.  Information  exchange  ’  )  ; 

gotoxy  <5,9)  ; 

write  <  ’3.1  Broadcasting  of  individual  output's  : 
if  norm. Broadcast i ng  then 
write  (  ’ yes  ’  ) 

else 

write  <  ’ no  ’  )  ; 

gotoxy  <  5, 10)  ; 

write  (  ’3.2  Permission  to  modify  mdivu  -ia’.  < 

group  analysis  :  ’  )  ; 

if  norm. Modify  then 
beg  i  n 

writeln  <  ’yes  ’  )  ; 

write  (  ’  you  can  modify  the  rutc.* 

norm. Mod i fyt imes, ’  times  ’  '  ; 

end 
else 

write  (  ’  no  ’  )  ; 

gotoxy  <  5, 12)  ; 

write  (  ’3.3  Time  limit  to  submit  ind  l  v  i  du.i 
gotoxy  <  9, 13  )  ; 

write  (  ’date  :  ’  ,  norm. Last t i me  '  ; 

gotoxy  (  9,14  )  ; 


.  '  .  1  .  *  #  * 

*  •  *  •  Vs  .  »  .  *  **■•**•  *  ' 


write  <  'hour  :  ’  ,  '22:30'  )  ; 

tent co lor  (  red  )  ; 

gotoxy  (  2,25)  ; 

write  (  ’  hit  any  key  to  continue  ’  )  ; 

read  (  kbd  ,  ch  )  ; 

END  ; 

INCLUDE  FILE  5TEP3 


PROCEDURE  PRIORI  TVOFCR I  TER  I  Pi  ; 

LABEL 

telosx, telosx 1 , telosx2  ; 

VAR 

pruseri,  filenarne2  :  name  ; 
errors  :  boolean  ; 

PROCEDURE  FINALWEIGHTS  ; 

BEGIN 

for  a  :=  1  to  problem. Levels  do 
beg  i  n 

for  b  :=  1  to  probl em. Subl evel 1 CaJ  do 
begin 

vector^ Ca,  b]  :=  vectorECa,  bH  *  vectorl Ca3  ; 
for  c  :=  1  to  problem. SublevelE Ca,  bl  do 
beg  i  n 

case  a  of 

1:  vector3Cb, cl  :=  vector3Cb, c]  *  vect 

2:  vector4 Cb, cl  :=  vector4Cb, c]  *  vect 

3:  vectorSCb, cl  :=  vectorSCb, c]  *  vect 

■4:  vectorGCb,  c]  :=  vectors  Cb,  cl  *  vect 

5:  vect or7 C b, c 1  :=  vector7 Cb, cl  *  vect 


PROCEDURE  FINALCRITERIA1 


1 


BEGIN 


numofcriteria  :=  1  ; 

selectcriteria  (  problem, vectorl, vector£, vectors, 

vector4, vector5, vectors, vector7, 
normvectorl,  normvector£,  numofcr iter ia 
numofcriter ia  :=  (  rmmofcriteria  -  1  )  ; 

sort  1  (  norrnvector  1  ,  normvectorS  ,  numofcr  iter  i  a  )  ; 


f i nal criteria  (normvectorl, normvectorS, 
so 1 ut i on. Numofcr i t  er i a  : =  numofcr i t  er i 
so 1 ut ion. Norrnvector 2  :=  normvectorS 

so  1  ut  i on.  Normvect  or  1  :  =  norrnvect or  1 


n  urno  fcriteria 

a  ; 


so  1 ut ion. Username  :=  namex  ; 

if  (  not  norm. spec i a  1 i zed  )  Then 


begin 

if  (  not  exist (  pruser  >  >  t 

begin 

sol ut ion. Ah p. St at  us  :  = 

sol ut ion.  Elect re. Status  :  = 
solution. Ahp. Numoftries  := 
so 1 ut ion. Elect re.  Numoftries 
opensol ut ionf i le  (  pruser  > 
end  ; 

wr i t  eso 1 ut i on  f i 1 e  ; 
end  ; 

END  ; 


hen 

false 
false 
0  ; 

:=  0 


BEGIN  <*  main  *) 

stringlEfl  :=  ’step  3: prior it i sat  ion  of  evaluation 
criteria'  ; 
diskstatus  ; 

stringl£9  :=  ’  identification  of  the  problem  methods  : 
ahp  or  d irect ’ ; 

dat  a  ; 

writenormf i le  ; 
read5  ; 

readprob 1 emf i 1 e  ; 
clrscr  ; 

if  norm.  Special i zed  then 
beg  in 


if  (  not  exist <  pruser3  )  >  then 

begin 


false  ; 
false  ; 


for  a  :=  1  to  3  do 
begin 

specf i le2. sol ved Cfll  := 

specf i 1 e2. Fina 1  index  Cal  :  = 
end  ; 

specf i le2. completed  :=  False  ; 

specf i le2. Completedal 1  :=  false  ; 

openspecfile  (  pruserS  )  ; 

writespecf i le  ; 
end 
else 

errors  :=  true  ; 
readspecfile  ; 

vectorl  :=  specf i le2. vector  1  ; 

vectors  :=  specf i leS. vectors  ; 
vector!  :=  specf i le£. vectors  ; 
vectorA  :=  specf i le£. vectorA  ; 
vectors  :=  specf i leS. vectors  ; 
vectors  :=  specf i leS. vectorb  ; 
vector 7  :=  specf i leS. vector?  ; 

b  :  =  0  ; 
repeat 

b  :  =  b  +  1  ; 

until  <  narnex  =  norm,  usersnamestb]  >  ; 

specf i leS. solved Cbl  :=  true  ; 
end  ; 

If  method*  =  ’ ahp’  then 

eva 1 uat  e  <  prob 1 ern. Level  1, probl ern. Leve Is, vectorl 
else 

d i rect 1  ( probl ern. Leve 11, probl ern. Leve 1 s, vect  or 1 

clrscr  ; 


if  (  (  norm. special i zed  )  find  (  errorS)  )  then 

beg  i  n 

for  a  : =  1  to  problem. levels  Do 

vectorl Cal  :=  <  vectorl Cal  +  specf i leS. vector  1 
end  ; 

for  mall  :  =  1  to  prob  1  ern.  Leve  1  s  do 
beg  i  n 

if  norm. Speci al i zed  then 
beg  i  n 

if  norm.  Specindex  [rnal  1  ]  <>  narnex  then 

goto  telcisx  ; 

end  ; 

for  rnal 2  :=  1  to  prob  1  ern.  Sub  1  eve  1 1  Crna  1 1 1  do 

beg  in 

vectortanCrnalS'l  :=  vectors Cmal  1 ,  mal21  ; 
arrays  Crna  121  :=  prob  1  ern.  Leve  12  Crna  1 1 ,  rna  1 21  ; 

end  ; 


if  method*  =  ’  ahp’  then 
evaluate  (array2,  problem.  Sublevel  1  Crnal  1 1 ,  vectortan 
else 

d  irect  1  ( arrayS,  problem.  Sub  1  evel  1  Crna  1 1  3  ,  vect ort an  ) 
rna  IS  :  =  0  ; 

for  rnal2  :=  1  to  problem.  Sublevel  1  Crnal  1  3  do 
beg  in 

if  norm. Speci al i zed  then 
begin 

if  norm. Spec  index Crnal 1 3  <>  name*  then 

goto  telosx  ; 

end  ; 

vectors  Crnal  1 ,  malSD  :=  vectortanCmal2]  ; 
end  ; 

ma IS  : =  0  ; 
telosx : 
end  ; 

clrscr  ; 

for  si  :=  1  to  problem. Levels  do 
begin 

if  norm. Special ized  then 
begin 

if  norm. Specindex  Csll  <>  narnex  then 
goto  telosx 1  ; 

end  ; 

for  5S  :=  1  to  problem. Sublevel  1 Csl H  do 
beg  i  n 

for  s3  :=  1  to  problem.  SublevelS  Csl ,  sS'l  do 
beg  i  n 

case  si  of 

1 :  beg i n 

arraySCs3D  :=  problem. Leve 1 3 [ s£. -3 

vectortan Cs3]  :=  vect or 3 CsS, s31  ; 

end  ; 

S:  begin 

array£Cs33  problem.  Leve  i  o.l ; 

vectortanCs31  :=  vector^ C sS, s33  ; 

end  ; 

3 :  beg i n 

array£Cs3]  :=  problem.  Level  . 

vectortan Cs31  :=  vectors CsS, s31  ; 

end  ; 

4:  begin 

array£Cs31  :=  problem. Leve 16 CsS, -  1 

vectortanCs31  :  =  vector6CsS. s31  : 


’ 


end 
end  ; 


array£ Cs33 
vect  ort an  C  s3D 
end  ; 


:=  problem. Level7 Cs£,  s3D 
vector7Cs£,s3]  ; 


s3  : =  0  ; 

if  rnethodx  =  ’  ahp’  then 

evaluated arrayS, problem. SublevelSCsl, s£3  , vect ort an) 
e  1  se 

d  irect  1  (array£,  problem.  Sublevelcl  Csl ,  s£3  ,  vect  ort  an)  ; 
clrscr  ; 


for  s3  :  =  1  to  problem. SublevelS Csl , s£3  do 


beg  i  n 

if  norm. Special i zed  then 
beg  in 

if  norm.  Spec  index  Cs  1  3  <>  narnex  then 

goto  teiosx  ; 

end  ; 


case 

1  : 


4  : 


end  ; 


si  of 

vectors Cs£, s33 
vector4Cs£, s33 
vectors Cs£, s33 
vectorSCsS, s3D 
vector7Cs£, s33 


vect ort  an  Cs31 
vect ort an  Cs31 
vect ort an  Cs3D 
vect ort an  Cs31 
vect  ort  an  Cs33 


end  ; 
end  ; 
s£  :  =  0  ; 
teiosx  1  : 
end  ; 


if  (  not  norm. Spec i a  1 i zed  )  then 
beg  i  n 

f inalweights  ; 
f inalcriterial  ; 
end 
e  1  se 
begin 

specf i le£. vector  1  :=  vectorl 

specf i le£. vectors  :=  vectors 
specf i 1 eS. vect or3  :=  vector3 
specf i le2. vector^  :=  vector4 
specf i 1 eS. vect orS  : =  vectors 
specf i 1 eS. vector6  :=  vector6 
specf i le£. vector 7  :=  vector 7 
writespecf i le  ; 
end  ; 


9  £ 


• 

;  >  > 


.  _  V*_  it  —  a*,  j/'^i 


^  V 


if  norm. special i zed  then 
beg  i  n 

readspecf i le  ; 

rna 11  : =  0  ; 

for  a  : = 1  to  3  do 

begin 

if  specfi  leS.  solved  Call  then 
rna  11  :  =  rna  11  +  1  ; 

end  ; 

if  mail  =  norm. nurnof users  then 
begin 

vector  1  :=  specfi 1 e£. vector 1  ; 

vectors  :=  specfi leS. vectors  ; 

vectors  :  =  specfi le£, vectors  ; 
vector4  :=  specfi le£. vector4  ; 
vectors  :=  specfi le£. vectorS  ; 
vectors  :=  specfi leS. vectors  ; 
vector 7  :  =  specf i leS. vector 7  ; 
final weights  ; 
f inalcriterial  ; 

specf i leS. completed  :=  true  ; 
specf i 1 e2. nor mvect  or 1  :=  normvectorl  ; 

specf  i  leS.  norrnvectorS  :=  norm  vectors  ; 
for  a  :=  1  to  nurnof cr iter ia  do 
beg  i  n 

for  mall  :=  1  to  problem. levels  do 
begin 

if  problem,  level  1  Crnal  1 1  =  normvectorl  Ca3  then 
begin 

specf i leS. normindex Cal  :=  norm. specindex [mall 
goto  telosxS  ; 
end  ; 
end  ; 

for  mall  :=  1  to  problem. levels  do 
beg  i  n 

For  rnalS  :=  1  to  problem. sublevel  1 CMal  i 1  c o 
beg  i  n 

if  problem.  1  evelS  Cmal  1 ,  ma  1  S3  -  riormvecf  :t-  1  : ;  : 
begin 

specf  i  le£.  normindex  Ca]  :=  norm,  soecincex  ;m.<  . 
goto  telosxS  ; 
end  ; 
end  ; 
end  ; 

For  si  :=  1  to  prob 1 ern. Leve 1 s  do 
beg  i  n 

for  5S  :=  1  to  prob  1  ern.  Sub  1  eve  1  1  Ls  1 1  do 

begin 


for  s3  :=  1  to  problem. Sublevel2 Csl , s23  .  do 
beg  i  n 

case  si  of 

1 :  beg  i  n 

if  problem.  level3Cs£,  s31  =  normvectorl  Ca] 
Then  begin 

specf  i  1  e£.  norm  i  ndex  Call  :  =norrn.  specindexCSl]  ; 
goto  telosxS  ; 
end  ; 
end  ; 

2:  begin 

if  prob 1 em.  1  eve  1 4 Cs2, s3d  =  normvectorl  [s] 

then  begin 

specf  i  1  e2.  norm  index  Call  :  =norm.  specindexCSi-  ■ 
goto  telosx2  ; 
end  ; 
end  ; 

3:  begin 

if  problem.  ievel5Cs3]  =  normvect or  1 Cad  then 
begin 

specf i 1 e2.  norm index  CaJ : =norm. spec i nd ex  C 3 1 d  : 
goto  telosx2  ; 
end  ; 
end  ; 

4:  begin 

if  prob  1  ern.  1  eve  16  Cs2,  s3d  =  normvectorl  Ca3 
then  begin 

specf  i  1  e2.  nortni  ndex  Ca]  :  =  norm,  spec  index  CS:  3  ; 
goto  telosxfi  ; 
and  ; 
end  ; 

5:  begin 

if  problem.  level7Cs2,  s33  “normvect  or  1  Ca]  t  r - 
beg  i  n 

specf i le2.  normindex Cad :  =norm.  spec  i  nde  *  C  d 1  : 
goto  telosxG  ; 
end  ; 
end  ; 
end  ; 
end  ; 
end  ; 
end  ; 
te losx2 : 
end  ; 

specf  i  le£.  nurnoferiteria  :=  numofcriteria  ; 

specf  i  1  e2.  nurno  fa  1 1  ernat  i  ves  :=  problem,  numof  a  1 1  er^ a  •:  :  -  '  : 

specfile2. alternatives  :=  problem. alternat ives  ; 
wr itespeef i le  : 


INCLUDE  FILE  STEP3-1 


OVERLAY  PROCEDURE  EVALUATE  (var  arrays : t i t 1 e ; var  w  : integer 

var  vectortari  :  vector's  1  ;  ; 

LABEL 

ert 1 , ert 3  ; 

CONST 

count  =  3  ; 


VAR 


Cui  k  o ,  f  o ,  *  a L  LI, 

lavelsl,  i, count  1,  istogram  :  integer  ; 
row,  row  1 ,  1  arnda,  ci ,  r  i ,  cr, 
score, answer3, integerl  :  real  ; 
arrays,  vectorbase, exchanges  :  vectors 1  ; 

st  :  string  C31  ; 

ch  :  char; 

1  arnda  1 ,  vectors  :  array  Cl..  501  of  real  ; 
exchange4  :  array C 1 .. £01  of  name  ; 

rnatri  x£,  result ,  rnatri  x3  :  array  C  1 .  .  £0,  1 .  .  £01  of  real  ; 
answer4  :  name  ; 


PROCEDURE  INFO  ; 

BEGIN 

w i ndow  ( 1 ,  13,  30, £3  )  ; 
t ext  background ( 1 4 )  ; 

textcolor (  red  )  ; 

got  oxy ( 1 , S )  ; 


writeln 

( 

’ "note  :  be 

as  accurate  as  p o 

gr 

eater  than  1 

e  •  r] ,  izi .  4  3 

'  >  ; 

Ur i t  e 1 n 

r 

’  a  possible 

scale  for 

i  re x act 

wr itein 

( 

’  3  =  weakly 

important 

than  , 

more  import  an  than  ’  )  , 

writeln  <  ’  7  =  very  strongly  mors  imp.  ch 

absolutely  more  imp.  than’  )  : 

END  ; 

BEGIN  <*  main  •*) 

window  (  1,  1,50,  1£  )  ; 

text  background ( b 1 ue)  ; 
c 1 rscr ; 
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window  (51,1,80,12); 
text  background  (  white  )  ; 

clrscr  ; 

window  (1,13,30,23  ); 

text  background ( 1 A)  ; 
clrscr  ; 

window  (1,24,80,25  ); 
text  background (white)  ; 
clrscr  ; 

textcolor  (  black  )  ; 

gotoxy(  2,  1 )  ; 

write  (’step  3  : prior it i cat  ion  of  evaluation  criteria  ’  ) 
gotoxyC  2,2)  ; 

write  <  ’method  :  ahp  ’  )  ; 

lavelsl  :=  w  ; 
if  level  si  <>  0  then 

beg  i  n 

window  (  1,  1,50,  12  )  ; 

text  background < bl ue)  ; 
clrscr ; 

window  (51,1,80,21); 
text  background  (  white  )  ; 

clrscr  ; 

window  (1,13,80,23  ); 
t ext  background ( 14)  ; 

clrscr  ; 

if  w  =  1  then 

vectort an Cw3  :=  1  ; 

if  w  =s  2  then 
begin 

window  (  1,1,50,12  )  ; 

t ext  background (blue)  ; 
textcolor  (  white  )  ; 

vectorbase  :=  vectort an  ; 
levelsl  :=  w  ; 
gotoxy  (  1,1)  ; 

write  (’  pairwise  comparison  ’ )  ; 

gotoxy  (  10,  3  )  ; 

for  al  :=  1  to  levelsl  do 

write  (  copy (  array2Cal 1 ,  1 , 5)  ,  ’  ’  )  ; 

for  al  :=  1  to  levelsl  do 
begin 

gotoxy  (2  , 3+al  ) ; 
write  (copy(  arr ay2 Ca 1 1 ,  1 , 5)  )  ; 

end  ; 


window  (51,1,80,21)4 
text  background  (white  )  ; 

textcolor (  0  )  ; 

gotoxy  (1,1)  ; 

write  (  ’  priority  vector  ’  )  ; 

for  al  :=  1  to  level  si  do 
begin 

gotoxy  (2,3  +al  )  5 
write  (copy(  array2CalD ,  1,  16)  )  ; 

end  ; 

for  a  :=  1  to  level  si  do 
begin 

gotoxy (20, 3  +  a  )  ; 

write  (  chr  (  179  )  )  ; 

end  ; 

for  a  :=  1  to  level  si  do 
beg  i  n 

got  oxy ( 27, 3  +  a  )  ; 

write  (  chr  (  179  )  )  ; 

end  ; 

window  (1,13,80,23  ); 
textbackground ( 14)  ; 

clrscr  ; 

textcolor (  black  )  ; 

gotoxy (  2,2); 

write  (  ’is  ’ , array£ C 1 3 , ’  more  important  than  ’ 
array2  C23  ,  ’  (y/n)  ?  ’  >  ; 

Repeat 

gotoxy  (  75, 2  )  ; 

clreol  ; 

read  (  answer  )  ; 

answer  :=  stupcase  (  answer  )  ; 

unt i 1  (  (  answer  =  ’ y’ )  or  (  answer  =  ’  n’  )  )  ; 

if  answer  =  ’ y’  then 
begin 

gotoxy (2, 3)  ; 

write  (  ’how  many  times  is  ’ , array2 C 1 3 , ’  more 
important  than  ’ , array2 C23 ,  ’  ? 

Gotoxy  (  2,  4)  ; 

write  (  ’ (  see  note  below  )  ’  )  ; 

info  ; 

textcolor  (  black  )  ; 

repeat 

gotoxy (75,  3)  ; 
clreol  ; 

read  (  answer  )  ; 

val  (  answer,  answers, code  )  ; 

unt i 1  (  (  code  =  0  )  and  (  answer3  >  0  )  )  ; 


97 


av:,. 


vectortanC.l  J  :=  (<10/  (answers  +  1))  * 
vectortanC23  :=  (  10  /  (  answers  +  1  )  ) 

window  <  1,  1,50,  12  )  ; 

t ext  background (blue)  ; 
textcolor  (  white  )  ; 

gotoxy  <  IQ,  4  )  ; 

write  (  answer3:4:£>  ; 
gotoxy (  10,5); 

write  ((1  /  answerS) :4: 2  )  ; 

end 
else 

if  answer  =  ’ n’  then 
begin 

gotoxy (2, 3)  ; 

write  <  ’how  many  times  is  ’ , array2 C23 , ’ 
important  than  ’ , array 2 t 1 3 , ’  ?  ’)  ; 

gotoxy  (2,4)  ; 

write  (  ’ (  See  note  below  ’  )  : 


answers  + 


1))  *  answer*j)/10 
1  )  )  /  10  ; 


info  ; 

textcolor  (  black  )  ; 

repeat 

gotoxy (75, 3) ; 
cl reel  ; 

read  (  answer  )  ; 

val  (  answer, answers, code  )  ; 

unt i 1  code  =  0  ; 

vectort an C23  :=  ((10  /(answers  +  1) 
vectortanCll  :=  (  10  /  (  answers  +1 

window  (  1,1,50,12  )  ; 

text  background ( bl ue )  ; 
textcolor  (white  )  ; 

gotoxy  (  10,5); 
write  ((1/  answerS) : 4 : 2)  ; 

gotoxy (  18, 4)  ; 

write  (  answer3:4:2  )  ; 

end  ; 

window  (51,1,80,21); 

text  background  (  white  )  ; 

textcolor <  black  )  ; 

for  al  :=  1  to  levelsl  do 

begin 

gotoxy (22,  a 1+3)  ; 

write  (  (  vectort an Cal 3 )  :5:3  )  ; 

end  ; 


window  (1,13,  80,  23  ); 
textbackground ( 14)  ; 

clrscr  ; 

textcolor  (  black  )  ; 


answers  )/10; 


for  al  :=  1  to  2  do 
begirt 

gotoxy  <(  <5*  al  )  )  ,  9  )  ; 

write  (copy(  arrays Ca 1 3 , 1 , 3)  )  ; 

end  ; 

for  al  :=  1  to  2  do 
beg  i  n 

gotoxy  <  (  (  5  *  al  ) )  ,  10  )  ; 

write  (  (vectortanCalD ) :3:£  )  ; 

end  ; 

text  background  (  green  )  ; 

for  al  :=  1  to  £  do 
begin 

gotoxy  (  (  5  *  al  ),8  )  ; 

write  (  ’  ’  >  ; 

end  ; 

for  al  :=  1  to  2  do 
be  gin 

gotoxy  (  (5  +  (  5  *  al  )  )  ,  9  )  ; 

if (round (vectortanCall  *  10  )  >  7  )  then 

istogram  :=  7 
else 

istogram  :=  <  round  (  vectortariCal]  *  10  )  ) 

for  bl  :=  1  to  istogram  do 
begin 

gotoxy  (  (  (  5  *  al  ))  ,  (9  -bl)  )  ; 

write  (  ’  ’  )  5 

end  ; 
end  ; 

text background  (  14  )  ; 

textcolor  (  black  )  ; 

gotoxy  (  2,  1 1  )  ; 

write  (  ’hit  any  key  to  continue  ’  )  ; 

read  <  kbd  ,  ch  )  ; 

id  ; 

w  >  2  then 

■gin 

for  a3  :=  1  to  5  do 

rnatr i x2 Ca3,  a31  :=  1  ; 

window  (  1,1,50,12  )  ; 

t ext  background < blue) ; 
textcolor  (  white  )  ; 

vectorbase  :=  vectortan  ; 
levelsl  :=  w  ; 
gotoxy  (  1,1)  ; 

write  (’  pairwise  comparison  ’  )  ; 

gotoxy  (  10,  3  )  ; 


m 


I 


for  al  :=  1  to  level si  do 

write  (  copy (  array2 Cal  3 ,  1 , 5)  ,  ’ 

for  al  :=  1  to  levelsl  do 
begin 

gotoxy  (2  , 3+al  ) ; 
write  (copy(  array2 Ca 1 3 , 1 , 5)  )  ; 

end  ; 


window  (51,1,80,21); 
textbackground  (  white  )  ; 

textcolor<  0  )  ; 

gotoxy  (1,1)  ; 

write  (  ’  priority  vector  ’  )  ; 


for  a  1  : 

=  1  to 

level 

s  1 

do 

begin 

gotoxy 

<  £  , 

3  +al 

) ; 

write 

(copy ( 

array 

2  Ca 

13,1, 

end  ; 

for  a  :  = 

1  to 

1  eve  1 

si 

do 

begin 

gotoxy 

( d® ,  o 

+  a  ) 

? 

write 

(  chr 

(  173 

)  ) 

5 

end  ; 

for  a  : = 

1  to 

level 

si 

do 

begin 

gotoxy 

(27,  3 

+  a  ) 

• 

write 

(  chr 

(  179 

)  ) 

5 

end  ; 
info  ; 


textcolor  (  0  )  ; 

for  a  :=  1  to  (  levelsl  -  1  )  do 
begin 

criterial  :=  array2Ca3  ; 

for  b  :=  1  to  (  levelsl  -  a  )  do 

beg  i  n 

cr iter ia2  :=  array2Ca+b3  ; 
repeat 

gotoxy  (  1,2  )  ; 

write  (’is  ’, criterial ,’ more  important  than  ’, 
criteria2  ,  My/n)  ?  ’  )  ; 

Gotoxy  (  77, 2  )  ; 

c 1 r eo 1  ; 

read  (  answer  )  ; 

answer  :=  stupcase  (  answer  )  ; 

clreol  ; 

until  ((answer  =  ’y’)  or  (  answer  =  ’ n’  )  )  ; 

if  answer  =  ’  y’  then 

begin 


£ 


gotoxy  (  1,3  )  ; 

write  <  ’how  many  times  is  ’ , criterial :5,  ’  more 
important  than  criteria£:5  ,’?  ’); 

gotoxy  <  1,4)  ; 

write  (  ’  (  See  note  below  )  ’  )  ; 

repeat 

gotoxy (  77  ,  3  )  ; 

clreol  ; 

read  <  answer  )  ; 

val  (  answer  ,  answerS  ,  code  )  ; 

unt i 1  < (  code  =  0  )  and  (  answers  >  0  )  )  ; 

rnatrix£ta,  a+bl  :=  answers  ; 
matrix£Ca+b, a3  :=  (  1  /  answers  )  ; 

matrix£Ca,aS  :=  1  ; 

window  (  1,1,50,  1£  >  ; 

textbackground < blue) ; 
textcolor  <  white  >  ; 

gotoxy  (  (  £  +(  <a  +b  )*8)),3+a)  ; 

write  <  answerS :4:£>  ; 

gotoxy(  £+(a*8>,(3+(a  +  b)  )  ); 

write  (<1  /  answerS) :4:£  )  ; 

end  ; 

if  answer  =  ’ n’  then 
begin 

gotoxy  (1,3); 

write  <  ’  how  many  times  is  ’ , criteria£, ’  more 

important  than  ’,  criterial:5  ,’?  ’); 
gotoxy  (1,4)  ; 

write  <  ’  (  See  note  below  )’  )  ; 

repeat 

gotoxy (  75  ,  3  )  ; 

clreol  ; 

read  (  answer  )  ; 

val  (  answer  ,  answers  ,  code  )  ; 

until  ((  code  =  0  )  and  (  answers  >  0  )  )  ; 

matr i x£ Ca, a+b3  :=(1/  answerS)  ; 
rnatr i x£ Ca+b,  aS  :=  answerS  ; 
matrix£Ca,a!  :=  1  ; 


window  (  1,1,50,  1£  )  ; 

text  background ( b 1 ue )  ; 
textcolor  (  white  )  ; 

gotoxy  (  <  £  +(  (a  +b  )  *  Q  ))  ,  3  +  a  ) 

write  ((1/  answerS) : 4 : £)  ; 

gotoxy (  £+<a*8)  ,(3+<a+b)  >  ); 

write  (  answer3:4:2  )  ; 

end  ; 

window  (1,13,  80,  £3  ); 
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text  background ( 14)  ; 

textcolor  (  black  )  ; 

gotoxy  (1,2  )  ; 

clreol  ; 
gotoxy  (1,3  )  ; 

clreol  ; 
gotoxy  <1,4  )  ; 

clreol  ; 
end ; 
end  ; 

rnat  r  i  x2  C  level  si ,  level  si  1  :=  1  ; 

ert  1  : 

rnatrix3  :=  rnatrix2  ; 

for  a3  :=  1  to  count  do 

begin 

for  b3  :=  1  to  level  si  do 
begin 

for  c3  :=  1  to  level  si  do 

array5Cc33  :=  rnatr  i  x£ Cb3,  a33  ; 

for  h3  :=  1  to  levels!  do 
begin 

score  :=  0  ; 

for  k3  :=  1  to  levelsl  do 
begin 

integerl  :=  array5tk33  *  matrix2Ck 
score  :=  score  +  integerl  ; 

end  ; 

result  Cb3, h33  :=  score  ; 

end  ; 
end  ; 

rnatrix£  :=  result  ; 
end  ; 

result  :=  rnatrix2  5 

for  p3  :=  1  to  levelsl  do 
begin 

row  : =  0  ; 

for  f3  :=  1  to  levelsl  do 

row  :=  row  +  resu 1 t C p3, f 33  ; 
vectorbase Cp33  :=  row  ; 
end  ; 

rowl  :=  0  ; 

for  p3  :=  1  to  levelsl  do 

rowl  :=  rowl  +  vectorbase Cp33  ; 
for  p3  :=  1  to  levelsl  do 

vectorbase Cp3D  :=  vectorbase Cp3D  /  rowl 
window  (51,1,80,21); 
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text background  <  white  )  ; 

for  al  :=  1  to  level si  do 
begin 

gotoxy <22, al+3)  ; 

write  (  vectorbase Ca 1 1 : 5 : 3  )  ; 

end  ; 

window  (  1,13,80,24  )  ; 

text  background ( 14)  ; 

integerl  s=  0  ; 

for  al:=  1  to  level  si  do 

begin 

score  : =  0  ; 

for  bl  :=  1  to  level  si  do 
begin 

integerl  :=  rnatr i x3 Cal , bl 3  *  vectorbasetbl] 
score  :=  score  +  integerl  ; 
and  ; 

larndal  Call  :=  score  ; 
end  ; 

integerl  :=  0  ; 

for  al  :=  1  to  level  si  do 

begin 

vector2Call  :=  larndalCall  /  vectorbaseEall  ; 

integerl  :=  integerl  +  vector2Call  ; 
end  ; 

larnda  : =  (  integerl  /  level  si  >  ; 

if  levelsl  =  1  then 
levelsl  :=2  : 


case 
1  : 


(  ( larnda  ■ 
levelsl 
r  i  :  = 
Ri  :  = 
Ri  :  = 


-  levelsl)  /  ( 
of 

0. 00000000001 
0. 00000000001 
0.  58  ; 

0.  90  ; 

1.12  ; 

1. 24  ; 

1 . 32  ; 

1.41  ; 

1 . 45  ; 

1. 49  ; 

1.51  ; 

1. 48  ; 

1. 56  ; 

1.  57  ; 

1. 59  ; 


(levelsl  - 


*  a*  •  "  i.  •  W  *•  ■.  *  •  *  •  'n*  .  ■«»,  » 


c r  :  =  ci  /  ri  ; 

window  (1,13,30,23  ); 
text  background ( 14)  ; 

clrscr  ; 

vectortan  :=  vectorbase  ; 
repeat 

count  1  :=  0  ; 

for  a  i«  1  to  (  levelsl  -  1  >  do 
begin 

if  vectorbaseCa]  <  vectorbaseEa+l]  then 
begin 

exchange3Ca3  :=  vectorbase Ca3  ; 
vectorbase Ca3  :=  vectorbase Ca+1 3  ; 

vectorbaseCa+1]  :=  exchange3Ca3  ; 
exchange4Ca3  :=  arraySCa]  ; 
array£Ca3  :  =  array2Ca+lD  ; 
arrayS  Ca-*- 13  :  ~  axchange4Ca3  ; 

count  1  : =  count  1  +  1  ; 

end  ; 
end ; 

unt i 1  count  1=0; 

for  al  :=  1  to  levelsl  do 
begin 

gotoxy  (  (  (  5  *  al  ) )  ,  9  )  ; 

write  <copy(  arrays  Cal  3 , 1 , 3)  )  ; 

end  ; 

for  al  :=  1  to  levelsl  do 
begin 

gotoxy  ((  (5*  al)),10  ); 

write  (vectorbaseCal3 :3:2)  ; 

end  ; 

t ext  background  (  green  )  ; 

for  al  :=  1  to  levelsl  do 
beg  i  n 

gotoxy  <  (  5  *  al  ),3  )  ; 

write  (  ’  ’  )  ; 

end  ; 

for  al  :=  1  to  problem. Levels  do 
begin 

gotoxy  (  (5  +  (  5  *  al  ))  ,9  )  ; 

if  (  round  (  vectort an Ca 1 3  *  10  )  >  7  )  then 
istograrn  :=  7 

else 

istograrn  :=  (  round  (  vectort  an  Cal  3  *  10  )  ) 
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for  bl  :  =  1  to  istogram  do 
begin 

gotoxy  (  (  (5  *  al  ))  ,  (9  -bl)  )  ; 

wr i  t  e  (  ’  ’  )  ; 

end  ; 
end  ; 

text  background  (  14  )  ; 

textcolor  (  blue  )  ; 

gotoxy  <  36,  1 )  ; 

write  (  ’  *#  larnda  max  -  ’,  lamda:4:2  ) 

gotoxy (  36,  £  )  ; 

write  (  ’  consistency  index  =  ci:4:2  )  ; 

gotoxy (36, 3) ; 

write  (  1  randomized  index  =  ’,  ri:4:2  )  ; 

gotoxy  (36, 4)  ; 

write  (  ’  consistency  ratio  =  er:4:£  )  ; 

gotoxy  (36,6)  ; 

write  (’•*•#  there  is  some  statistical’)  ; 
gotoxy  (  36,7)  ; 

write  (  ’  inconsistency  in  your  evaluation. ’ ) 
Gotoxy (36, 6) ; 

write  (’  (study  highlighted  values  for  ’  )  ; 

gotoxy (36, 9) ; 

write  (’  probable  inconsistent  evaluation)  ’  ) 
textcolor  (  black  )  ; 

for  p3  :=  1  to  level si  do 
begin 

for  f3  :=  1  to  level  si  do 
begin 

result  Cp3, f33  :=  0  ; 

rnatr i x2 Cp3, f3]  :=  0  ; 

end 
end  ; 

got oxy  (2,  11)  ; 
textcolor  (  blue  )  ; 

write <’ do  you  want,  to  modify  the  evaluation  of 
criteria  (y/n) ?  ’ )  ; 

Textcolor  (  black); 
repeat 

gotoxy  (  65,  11)  ; 

c 1 reo 1  ; 

read  (  answer  )  ; 

answer  :=  stupcase  (  answer  )  ; 

until  (  (  answer  =  ’ y’ )  or  (  answer  =  ’ n’  )  ) 

window  (1,  13,30,23  ); 
t ext  background ( 14)  ; 


ir  answer  =  ’ y’  then 
be  gin 

clrscr  ; 

error  :=  false  ; 
repeat 

got ox y  <  2, 2)  ; 

c 1 reo 1 ; 

write  (  ’name  of  the  first  criteria 

Read  (  answer  )  ; 

answer  :=  copy (answer, 1, 4)  ; 

answer  :=  stupcase  (  answer  )  ; 

for  al:=l  to  levelsl  do 

begin 

answer^  :=  copy (  arr ay2 Cal 3, 1 , 4 )  ; 

if  (  answer4  =  answer  )  then 
error  :=  true; 

end  ; 

unt  i  1  error  ; 
a  :=  •&  ; 
repeat 

a  ;  =  a  + 1  ; 

answer4  :=  copy (  array2Ca3 , 1, 4) 
unt i 1  <  answer  =  answer4  )  ; 

criterial  ;=  array2CaD  ; 
ert3 : 

error  :=  false  ; 
repeat 

gotoxy  (  2, 3)  ; 

cl reel  ; 

write  (  ’name  of  the  second  criteria 
Read  (  answer  )  ; 

answer  ;=  stupcase  (  answer  )  ; 

answer  :=  copy (answer, 1,4)  ; 

for  bl  ;=  1  to  levelsl  do 
beg  i  n 

answer4  :=  copy (  array2 Cbl 1 , 1 , 4)  ; 

if  (  answer4  =  answer  >  then 
er»'or  :=  true; 

end  ; 

unt i 1  error  ; 

answer4  :=  copy  (  criterial, 1,4)  ; 

if  (  answer  =  answer4  )  then 
goto  ert3  ; 

b  :=  0  ; 
repeat 

b  : =  b  +1  ; 

answer4  ;=  copy (  array2Eb3 , 1 , 4) 
unt i 1  (  answer4  =  answer  >  ; 

criteria2  :=  array2Cb3  ; 


window  (  1,1,50,12  )  ; 

text  background ( bl ue)  ; 
matrix2  :=  rnatrixS  ; 
text co Ion  (  red  +  16  )  ; 

gotoxy  (  (  2  +(  b  *  8  )  )  ,  3  +  a  >  ; 

write  (  matr i x£ Ca, bH : 4 : 2  )  ; 

textcolor  (  black  )  ; 

window  (1,  13,80,23  ); 
text  background ( 14)  ; 

clrscr  ; 
repeat 

gotoxy  (  1,2  )  ; 

write  (  1  is  ’ , criterial  ,  ’  more  important  than 

criteria2  ,’  (y/n)  ?  ’  > 

Gotoxy  <  75, £  )  ; 

clreol  ; 

read  (  answer  )  : 

answer  :=  stupcase  (  answer  )  ; 

c 1 reo 1  ; 

until  (  (  answer  =  1  y’  )  or  (  answer  =  ’ n’  )  )  ; 

if  answer  =  ’ y’  then 
beg  i  n 

gotoxy  (  1,3  )  ; 

write  (  ’  how  many  times  is  ’ , criterial, ’  more 

important  than  ’ , criteria2  ,  ’  ?  ’  )  ; 

gotoxy  (  1,4)  ; 

write  (  ’  (  See  note  below  ’  )  ; 

info  ; 

repeat 

gotoxy (  75  , 3  )  ; 

c 1 reo 1  ; 

read  <  answer  )  ; 

val  <  answer  ,  answer3  ,  code  )  ; 

until  (  (  code  =  0  )  and  (  answers  >  0  )  )  ; 

matrix£Ca, b]  :=  answers  ; 
matrix£Cb,a3  :=  (  1  /  answers  )  ; 

matrixSCa, a]  :=  1  ; 
window  (  1,  1,50,  12  )  ; 

text  background < bl ue)  ; 
textcolor  <  white  )  ; 

gotoxy  ((2+(b*Q)),3+a)  ; 

write  (  answer3:4:2)  ; 

gotoxy  (  2+(a*Q),(3  +  b  >>; 

write  (<1  /  answer3):4:2  )  ; 

end  ; 

window  (1,13,80,23  ); 
text  background ( 14)  ; 

textcolor  (  black  )  ; 


’  n’  then 


i f  answer  = 
begin 

gotoxy  (  1,3  )  ; 

write  (  ’  how  many  times  is  ’  ,criteria2, 

’  more  important  than  ’ ,  criterial  ,  ’  ?  ’  )  ; 
gotoxy  (  1,4); 

write  (  ’  (  See  note  below  ’  )  ; 

info  ; 

repeat 

gotoxy (75, 3  )  ; 

clreol  ; 

read  (  answer  )  ; 

val  (  answer  ,  answers  ,  code  >  ; 

until  (  (  code  =  0  )  and  (  answers  <>  0  )  )  ; 

matrix2Ca,bl  :  =  (1/  answer3>  ; 
matrix2Eb,  aD  :=  answers  ; 
matrix2Ca, a3  :=  1  ; 

window  (  1,1, 50, 12  )  ; 

t ext  background (blue)  ; 

gotoxy  (  (  2  +<  b  *  3  )  )  ,  3  +  a  )  ; 

write  ((1/  answers) : 4 : 2)  ; 

gotoxy (  2+(a*3),(3+b  )); 

write  (  answerS: 4:2  )  ; 

end  ; 

window  (1,13,  30,  23  >; 
textbackground ( 14)  ; 

gotoxy  (1,2)  ; 

clreol  ; 
gotoxy  (1,3  )  ; 

c 1 reo 1  ; 

goto  ert 1 

end  ; 
end ; 

window (1,1, 30, 25) ; 
gotoxy (1,1)  ; 

end  ; 

END  ; 


OVERLAY  PROCEDURE  PI  RECTI  (var  array2:title;var  w:intege 

var  vector tan  :  vectors  1  ) 

LABEL 

ert 1 , ert 3  ; 


3 

ii 


»!»M 


CONST 


£03  of  real 


count  =  3  ; 


djif  Cuf  djff  f  o ,  po ,  1^  a  1 ,  b  1  ^ 

level  si ,  i , count  1 , i stogram  :  integer  ; 
row,  rowl,  lamda,  ci,  ri,  cr, 
score, answer3, integerl  :  real  ; 
arrays, vectorbase, exchanges  :  vectorsl 
st  :  string  C93  ; 

ch  :  char; 

1 arndal , vectors  :  array  Cl.. 503  of  real 
exchanged  :  array  Cl.. 203  of  name  ; 
rnatri  x2,  result,  matrix3  :  array  Cl..  20,  1, 
answer4  :  name  ; 


PROCEDURE  INFO  ; 

BEGIN 

window  <1,13,80,23  ); 
text  background ( 14)  ; 

clrscr  ; 

textcolor (  red  )  ; 

gotoxy <1,10)  ; 

writeln  (  ’"note  :  be  as  accurate  as  possible 

—  any  #  between  0  and  10  e. g,  2. 45  ’ )  ; 

Writeln  <  ’  a  possible  scale  for  inexact  is  :  1  )  ; 

writeln  <  ’ .3  =  weakly  important  than  ,5  =  strongly  more 

importan  than  ’ )  ; 

writeln  <  ’  7  =  very  strongly  more  imp. than 
9  =  absolutely  more  imp.  than’); 


BEGIN  <*  main  *) 

window  <  1,1, 50, 12  )  ; 

text  background < bl ue)  ; 
clrscr ; 

window  <51, 1, 00, 12) ; 
text  background  <  white  )  ; 

clrscr  ; 

window  <1,13,80,23  ); 
text  background < 14)  ; 

clrscr  ; 


window  <1,24,80,25  ); 
t ext  background <wh i t e )  ; 

clrsct"  ; 

text co lor  <  black  )  ; 

gotoxy (  2, 1 )  ; 

write  (  ’step  3  :  prioritisation  of  evaluation  criteria’) 
gotoxy (  2,2)  ; 

write  (  ’direct  input  of  criteria  weights  ’ )  ; 

levelsl  :=  w  ; 
if  levelsl  <>  ©  then 
begin 

window  (  1,  1,50,  12  )  ; 

t ext  background < bl ue)  ; 
clrscr ; 

window  <51,1,80,21); 
t ext  background  <  white  )  ; 

clrscr  ; 

window  < 1, 13, 80, 23  > ; 
text  background < 14)  ; 

clrscr  ; 

if  w  -  1  then 

vectortanCwl  :=  1 

else 

begin 

for  a3  : —  1  to  5  do 

matr ix2Ca3, a31  1  ; 

window  <  1,1,50,12  )  ; 

text  background ( bl ue)  ; 
textcolor  <  white  )  ; 

vector base  :=  vectortan  ; 

levelsl  :=  w  ; 

gotoxy  <  1,1)  ; 

window  (51,1,80,21); 

text  background  (  white  )  ; 

textcolor (  0  )  ; 

got  oxy  (1,1)  ; 

write  (  ’  priority  vector  ’  )  ; 

for  al  :=  1  to  levelsl  do 
beg  i  n 

gotoxy  <2,3  +al  )  ; 
write  (copy(  array2Cal 1 ,  1 ,  18)  )  ; 

end  ; 

for  a  :=  1  to  levelsl  do 
begin 

gotoxy (20, 3  +  a  )  ; 

write  (  chr  <  179  )  )  ; 

end  ; 


wl 

wl 

•S»| 

•5I«| 


SS 

£ 


ert  1 


levelsl  do 


for  a  :=  1  to  levels 
beg  i  n 

gotoxy (27, 3  +  a  )  ; 

write  (  chr  (  173  ) 
and  : 


info  ; 

textcolor  (  0  )  ; 

gotoxy  (  2,2)  ; 

write  (  ’enter  the  weights  of  the  criteria 
for  a  :=  1  to  levelsl  do 
beg  i  n 

gotoxy  (  2  ,  2+a  )  ; 

write  (  array2Cal 
end ; 

for  a  :=  1  to  levelsl  do 
beg  i n 
repeat 

gotoxy  (  length <array2Cal ) +5  ,  2+a  )  ; 

c 1 reo 1  ; 

read  (  answer  )  : 


val  (  answer  ,  answers  ,  code  )  ; 

until  (  (  code  =  0  >  and  (  answers  >  -1  ) 
<answer3  <  11)  )  : 


code  )  ; 


vectorbasetal 
end  ; 


answer 


rowl  0  ; 

for  p3  :=  1  to  levelsl  do 

rowl  :=  rowl  +  vector base Cp3]  ; 
for  p3  :=  1  to  levelsl  do 

vector base Cp33  :=  vector base Cp3D  /  rowl 

window  (51,1,80,21); 
text  background  (  white  )  ; 

for  al  :=  1  to  levelsl  do 
beg  in 

gotoxy (22, al+3)  ; 

write  (  vectorbase Cal  1 : 5 : 3  )  ; 

end  ; 

window  (1,13,80,23  ); 
text  background ( 14)  ; 

clrscr  ; 

vectortan  :=  vectorbase  ; 
repeat 

count  1  :=  0  ; 

for  a  :=  1  to  (  levelsl  -  1  )  do 


L*| 


begin 

if  vectorbase Ca3  <  vectorbaseta+1]  then 
beg  i  n 

exchange3Ca]  :  =  vectorbase  Call  ; 
vectorbase Ca3  : =  vectorbase  Ca-t- 1  3  ; 

vectorbase Ca+1 ]  :=  exchanges Ca3  ; 

exchange4Ca3  :=  array2Ca3  ; 
array2Ca3  :  =  array2Ca+13  ; 
array2Ca+13  :=  exchange4Ca3  ; 
count  1  :  =  count  1  +  1  ; 

end  ; 
end ; 

unt i 1  count  1=0; 

for  al  :=  1  to  level  si  do 
begin 

gotoxy  <  (  (  5  *  al  ) )  ,  9  )  ; 

wr i t  e  (copy (  array 2  C  a  1 3 ,  i , 3 )  )  ; 

end  ; 

for  al  :=  1  to  level  si  do 
begin 

gotoxy  <  (  (  5  *  al>),10  ); 

write  ( vectorbase Ca 1 3 : 3 : 2)  ; 

end  ; 

text  background  (  green  )  ; 

for  al  s=  1  to  levelsl  do 
begin 

gotoxy  (  <  5  *  al  ),8  )  ; 

write  <  ’  1  )  ; 

end  ; 

for  al  s=  1  to  levels!  do 
beg  in 

gotoxy  (  (5+  (  5  *  al  )  )  ,9)  ; 

for  bl  :=  1  to  round  (  vectorbase Cal  3  *  10  > 

begin 

gotoxy  (  (  <  5  *  al  ) )  , (9  -bl)  )  ; 

write  (  ’  ’ )  ; 

end  ; 
end  ; 

got  oxy  (2,  11)  ; 
t ext  background  (  14  )  ; 

text color  (  blue  )  ; 

write (’  do  you  want  to  modify  the  evaluation  of 
the  criteria  <y/n)  ?  ’ )  ; 

Textcolor  (  black) ; 
repeat 

gotoxy  <  65,  11)  ; 


•  ’  '  •  N  - - % .  .  .  ^  ^  ' 
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’  n  M  ) 


clreol  ; 

read  (  answer  )  ; 

answer  :=  stupcase  (  answer  )  ; 

until  ( ( answer  =  ’ y’ )  or  (  answer  = 
window  (1,13,30,23  ); 
text  background ( 14)  ; 

if  answer  =  * y’  then 
begin 

clrscr  ; 
goto  ert 1  ; 
end  ; 
end  ; 
end  ; 

END  ; 


INCLUSE  FILE  STEP3-S 


^'RCCZDL'RE  SELECTOR  I  TER  I  Pi  (var  prcolern  :  easel  ; 

var  vector  1  :  vectors!  ; 

var  vectors, vectors, 
vector4, vectors, 
vectors, vector7  : vectors 
var  normvectorl  :  vectorg  ; 
var  normvectorfi  :  vectorn  ; 
var  numoferiteria  :  integer 

VAR 

f,  a,  b,  c  :  integer  ; 

norm vectors  :  vectorg  ; 

norm vectors  :  vectorn  ; 

numofer iterial  :  integer  ; 

BEGIN 

for  a  :=  1  to  125  do 
begin 

norrnvectorS Cal  :=  0  ; 
normvectorl Cal  :=  ’  ’  ; 
end  ; 

f  :=  numoferiteria  ; 

for  a  :=  1  to  problem. Levels  do 

begin 

if  problem. Sublevel  1  Cal  =  0  then 
begin 

norrnvector  1  Cf  1  :=  problem.  Level  1  Cal  ; 
norrnvectorS C fl  :=  vector  1  Cal  : 


f  :=  f  +  1  ; 
end 
else 
begin 

for  b:  =  1  to  problem. Sublevel  1 Cal  do 
begin 

if  problem. Sub level £Ca, bl  =  0  then 
begin 

normvectorl Cf 3  problem.  Levels Ca,  bl  ; 
normvectorSCf 3  :=  vectors Ca,  bl  ; 

f  :=  f  +  l  ■ 


end 
e  1  se 
begin 
for  c 
begin 
case 
1 


4 


end ; 
end ; 
end ; 
end ; 
end  ; 
end ; 

mimofcriteria  :  = 


=  1  to  problem. SublevelSCa, bl  do 


a  of 
beg  in 

normvectorl Cf  1 
n  o  r  rnvect  o  r  2  C  f  1 

f  :=  f  +  1  ; 
end  ; 
begin 

normvectorl Cfl 
normvectorS  C  f  3 
f  :=  f  +  1  ; 
end  ; 
begin 

normvectorl Cf 3 
normvectorS C  f  3 
f  :=  f  +  1  ; 
end  ; 
begin 

normvectorl Cf3 
normvectorS C  f 3 
f  :=  f  +  1  ; 
end  ; 
beg  i n 

normvectorl Cf3 
normvectorS C  f  3 
f  :=  f  +  1  ; 

end  ; 


probl em. Levels Cb, cl 
vectorSCb, c3  : 


problem. Level 4  Cb, c3 
vector4Cb,c3  ; 


problem. LevelSCb,  cl 
vector5Cb,c3  ; 


problem. Level6  Cb, cl 
vector6Cb,cl  ; 


problem. Level 7Cb, cl 
vector7Cb,cl  ; 


Fwn  ■ 


f 


PROCEDURE  FINflLCRITERIfl  <  var  normvector  1  :  vectorg 

var  normvector£  :  vectors 

var  numofcriteria  :  integer 

VAR 

a, b, number, st art  point  :  integer  ; 

sum, precent  :  real  ; 

answer  :  char  ; 

numofcr iter ial  :  integer  ; 

normvectorS  :  vectorg  ; 

normvectorS  :  vectorn  ; 


PROCEDURE  WRITECRITERI A  ; 

VAR 

linex, rowx  :  integer  ; 

BEGIN 

window  (  1,1,30,15)  ; 

t ext  background  (  blue  )  ; 

textcolor  (  white  )  ; 

c lrscr  ; 
gotoxy  <  3, 2)  ; 

write  <  ’the  final  criteria  (  ’,  numofcr iter ia  ,’) 
and  their  weights  are  :  ’  )  ; 

gotoxy  (  1,4  )  ; 

sum  '3  ; 

numofcr iterial  :=  numofcriteria  ; 
normvectorS  :=  normvectorl  ; 
normvector6  :=  norrnvector2  ; 

for  a  :=  1  to  numofcriteria  do 
sum  s=  sum  +  norravectorSCa]  ; 
for  a  :=  1  to  numofcriteria  do 
beg  i  n 

norrnvectorSCa]  :=  normvectorS Ca]  /  sum  ; 
end  ; 

linex  :=  3  ;  rowx  :=  2  ; 

for  a  :=  1  to  numofcr iter ia  do 

beg  i  n 

if  (  linex  >  13  )  then 

beg  i  n 

linex  :=  3  5 
rowx  : =  45  ; 
end  ; 

gotoxy  (  rowx, linex  )  ; 

write  (a,’.  , Normvectorl [a],  normvector2 Ca] : 4 : 2  ) 

linex  :=  linex  +  1  ; 

end  ; 

END  ; 
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BEGIN  <*  main  #) 

window  (  1,1,80,15)  ; 

text  background  (  blue  )  ; 

clrscr  ; 

window  (  1,  18,30,83)  ; 

t ext  background  (14  )  ; 

clrscr  ; 

window  (  1,24,80,85  )  ; 

text background  (  white  )  ; 

c 1 rscr  ; 

textcolor  (  black.  )  ; 

gotoxy  (  2, 1  )  ; 

write  (’step  3  : priorit izat ion  of  evaluation  criteria 
gotoxy  (2, 2)  ; 

write  (  ’determine  the  number  of  the  criteria  ’  )  ; 

start  point  :  =  numofcr i t er i a  ; 
writecritaria  ; 

window  (  1,18,30,23)  ; 

text  background  (  14  )  ; 

clrscr  ; 

textcolor  (  black  )  ; 

gotoxy  (  2,2)  ; 

write  (’do  you  want  to  reduce  the  number  of  the 
criteria  ( y / n ) ?  ’  >  ; 

Repeat 

gotoxy  (63,2)  ; 

c 1 reo 1  ; 

read  (  answer  )  ; 

answer  : =  st  upcase  (  answer  )  ; 

unt i 1  (  (  answer  =’ y’ )  or  (  answer  =  ’ n’ )  )  ; 

repeat 

if  answer  =  ’ y’  then 
beg  i  n 

gotoxy  (  2,2)  ; 

cl  reel  ; 

write  (  ’you  have  two  methods  :  ’  )  ; 

gotoxy  (  4,4); 

write  (  ’  1.  Define  the  number  of  the 

criteria  that  you  want  to  use  ’ ) ; 
gotoxy  (  4, 5)  ; 

write  (  ’  2.  Define  the  sum  (  ’/•  )  that  you  wish  ’ 

gotoxy  (  2,  7  )  ; 

write  (’method  that  you  wish  (1  or  2)  ?  ’  )  ; 

Repeat 

gotoxy  (  50,  7)  ; 
clreol  ; 


read  (  answer  )  ; 

until  (  (  answer  =  ’  1’  )  or  (  answer  =  ’  £’  )  )  ; 

if  answer  =  ’1’  then 
beg  i  n 

gotoxy  (  £, £)  ; 

write  (’the  number  of  the  criteria  that  you  wish 
(up  to’ , start  point  ,  ’  )  ?  ’  )  ; 

Repeat 

gotoxy  (  60  ,  £  )  ; 

clreol  ; 

read  (  number  )  ; 

until  (  number  <=  start  point  )  ; 

numofcriteria  :=  number  ; 
end  ; 

if  answer  =  ’ £’  then 
beg  in 

clrscr  ; 

gotoxy  (  £,  £  )  ? 

write  (  ’enter  the  value  <54)  that  you  wish  :  ' 

read  (  precent  )  ; 

sum  :=  0  ; 

a  :  =  0  ; 

repeat 

a  :=  a  +  1  ; 

sum  :=  sum  +  (  normvector£ Cal  *  100  )  ; 

b  :=  a  ; 

unt i 1  (  sum  >  precent  )  ; 

numofcriteria  :=  (  b  -  1)  ; 

end  ; 
end  ; 

writecr iteria  ; 
window  <  1,16,80,  £3)  ; 

clrscr  ; 

text co lor  (  black  )  ; 

gotoxy  (  £,£  )  ; 

write  (’do  you  want  to  change  the  number  of  the 
criteria  (y/n)  ?  ’  )  ; 

Repeat 

gotoxy  (70,  £  )  ; 

read  (  answer  )  ; 

answer  :=  stupcase  (  answer  )  ; 

until  (  (  answer  =’ y’  )  or  (  answer  =  ’  n’  )  )  ; 

if  answer  =  ’ y’  then 
begin 

numofcriteria  :=  nurnof  cr  i  t  er  i  a  1  ; 

normvectorl  :=  normvectorS  ; 

normvector£  :=  norrnvector6  ; 

clrscr  ; 
end  ; 

unt i 1  (  answer  =  ’  n’  )  ; 

D  ; 
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INCLUDE  FILE  STEP4 


j  PROCEDURE  SQLVEU) I THAHP  ; 

!  LABEL 

( 

j  telos3x  ; 

|  PROCEDURE  DISPLAYFINALS  ; 

BEGIN 

> 

j  window  (1,1,80,23)  ; 

text background  (  blue  )  ; 

clrscr  ; 

window  (1,24,80,25)  ; 

t:  ext  background  (white  )  ; 

clrscr  ; 

text co lor  (  black  )  ; 

gotoxy  (  2, 1)  ; 

I 

\  if  index  then 

write  <  ’step  5  :  direct  input  of  the  weights’  ) 
else 

write  (  ’step  4  :  individual  evaluation  of 

j  alternatives’  )  ; 

gotoxy  (2,2)  ; 

write  (  ’final  result’  )  ; 

window  (1,1,80,23)  ; 

text background  (  blue  )  ; 

clrscr  ; 

textcolor  (  white  )  ; 

gotoxy  (  2, 3  )  ; 

write  (  ’  final  solution  ’  )  ; 

for  al  :=  1  to  prob 1 em.  Numof a  1 ternat i ves  do 
beg  i  n 

textcolor  (  white  )  ; 

gotoxy  (  (  (  5  *  al  ) )  ,  19  )  ; 
write  (  copy (  problem. Alternat ivesCal 3 , 1 , 3)  )  ; 

gotoxy  (  (  (  5  *  al  ) )  ,  20  )  ; 
textcolor  (  red  )  ; 

write  (  altvector 1 CalD :3:2  >  ; 
end  ; 

text  background  (  red  )  ; 

for  al  : =  1  to  problem. Numof a  1 ternat ives  do 
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gotoxy  (  (5  +  <  5  *  al  ) )  , 17  )  ; 

end  ; 

Lint  l  1  count  =  0  ; 

END  ; 

BEGIN  <*  main  *) 

if  index  then 
begin 

alternat i vesl  :=  problem. alternatives  ; 

Evaluates  (  alternat i vesl  ,  alt vector  , 

problem. Numofalternat i ves  , normvectorl, ax) 

alternat ivesx  :=  prob 1 em. a  1 1 ernat i ves  ; 
alt vector x  :=  alt vector  ; 

ait vector 1  :=  alt vector  : 

End 

else 

begin 

if  norm. Special i zed  then 

altmatrix  :=  specf i le£. Oltmatr i x  ; 
if  indexS  then 
begin 

for  ax  :=  1  to  mimofcriteria  do 
begin 

if  norm. special i zed  Then 
begin 

if  specf  i  le£.  normindex  Caxl  <>  narnex  Then 
goto  telos3x  ; 

end  ; 

alternat i vesl  :=  problem. 01 t ernat i ves  ; 
evaluatel  (  alternat i vesl  ,  alt vector 

problem. Nurnof alternat ives  , 
normvectorl, ax) ; 

for  b  :=  1  to  problem. Numofalternat i ves  do 
altmatrix  C  b, ax  3  :=  altvectorCbl  : 

telos3x : 

end  ; 

if  norm. Spec i a 1 i zed  then 
beg  i  n 

specf  i  le£.  Elect  re.  Nurnoftries  :  = 

solut ion. Elect re. Nurnoftries  ; 
specf i le£. Electre. Stat us  :=  solut ion. Electre.  Status 
specf i le2. Ohp. Status  :=  solut ion. Ohp. Status  ; 
specf  i  1  e£.  Ohp.  Nurnoftries  :  =  sol  ut  ion.  Ohp.  Nurnof t r ies 

specf i le£. Oltmatrix  :=  altmatrix  ; 
writespecf i le  ; 


1  19 


end  ; 
end 
e  1  se 

beg  i  n 

al t ernat ivesl  :=  problem,  flltemat  ives  ; 
direct2a  <  a 1 t ernat i ves 1  ,  altvector  , 

problem.  Numofalternat ives,  normvectorl,  ax) 
if  norm. Special i zed  then 
begin 

specf i le2. Electre. Numoftries  := 

solution. Electre. Numoftries  : 


specf i le2. Altmatri x  :=  altmatrix  ; 

end  ; 
end  ; 

if  not  norm. Special i zed  then 
sort resu 1 t 
else 
beg  in 

b  :=  0  ; 

for  a  : =  1  to  3  do 
begin 

if  specf i le2. Final  index CaD  then 
b  :  =  b  +  1  ; 

end  ; 

if  b  =  norm.  Nurnof users  then 
beg  i  n 

sort resu It  ; 

specf i le£. Comp let edal 1  :=  true  ; 

end  ; 
end  ; 
end  ; 

if  not  norm.  Spec i a  1 i zed  then 
d l sp lay f i nal s 
e  1  se 
beg  i  n 

if  specf i le£. Completedal 1  then 
beg  i  n 

displayf inals  ; 

specf i le2. Ahp. St at  us  :=  true  ; 
specf  i  le2.  Nurnof cr  i  t eri  a  :=  numofcr  iter ia  ; 
specf i le2. NormvectorS  :=  normvector2  ; 
specf i le2. Normvectorl  normvectorl  ; 
specf i le2. Nurnof a  1 1 ernat ives  :  = 
problem.  Nurnof  alt  ernat  ives  ; 


-r.-' wVJW  v.v. 


wr ltespecf 1 le  ; 

answer  :=  eoncat  (  ’  .  ’  ,  Inte  )  ; 

pro b 1 name  :=  concat  (  problname  , answer  ) 
end  ; 
end  ; 

END  ; 

PROCEDURE  CQMPUTEALTERNATIVES  ; 

LABEL 

telos£  ; 

PROCEDURES  ALLUSERS  ; 

LABEL 

telosSx  ; 

BEGIN 

if  met hod x  =  ’elect re’  then 
beg  in 

countimes  :=  solut  ion.  Electre.  Nurooftr  ies  ; 
if  norm. Modify  then 
beg  i  n 

if  countimes  <  norm.  Mod  i  fyt  i  rues  then 
beg  i  n 

countimes  :=  count  irnes  +  l  ■ 
clrscr  ; 

solution.  Electre. Status  :=  true  ; 
solut ion. Electre. Numoftries  :=  countimes 
electre  ; 
end 
e  1  se 
begin 

clrscr  ; 
gotoxy  (5,9)  ; 

write  (  ’you  cant  modify  your  output  ’  ) 

gotoxy  (  5,  10  )  ; 

write  (  ’hit  any  key  to  continue  ’ )  ; 

read  (  kbd, ch  )  ; 

goto  telosSx  ; 
end  ; 
end 
e  1  se 
beg  i  n 


if  countimes  =  0  then 
beg  i  n 

count  irnes  :=  count  irnes  +  1 


clrscr  ; 

solution. Electre. Status  :=  true  ; 
solut  ion.  Electre.  Numoftries  :=  count  irnes 
electre  ; 
end 
e  1  se 
beg  i  n 

clrscr  ; 
gotoxy  (5,9)  ; 

write  <  ’you  cant  modify  your  output  ’  ) 

gotoxy  (  5,  10  ) ; 

write  (  ’hit  any  key  to  continue  ’ )  ; 

read  (  kbd, ch  )  ; 

goto  telosfcx  ; 
end ; 
end  ; 
end 
e  1  se 
beg  i  n 

count  i rnes  :  =  so  1  ut  i on.  Ah p.  Numoft  r  i  es  ; 

i f  norm. Mod i f y  then 

begin 

if  count  irnes  <  norm.  Modi  fyt  irnes  then 
begin 

countimes  :=  count  irnes  +  1  ; 

index  :=  false  ; 
if  rnethodx  =  ’  ahp’  then 
index£  :=  true 
else 

indexS  :=  false  ; 
solvewithahp  ; 
end 
else 
begin 

clrscr  ; 
gotoxy  <  5, 9)  ; 

write  <  ’you  cant  modify  your  output  ’ 
gotoxy  <  5, 10  ) ; 

write  (  ’hit  any  key  to  continue  ’ )  ; 

read  (  kbd,ch  )  ; 

goto  telosSx  ; 
end  ; 
end 
else 
begin 

if  count  irnes  =  0  then 
begin 

count  irnes  :=  count  irnes  +  1  ; 

index  :=  false  ; 
if  rnethodx  =  ’ahp’  then 


index2  :=  true 
else 

index2  :=  false  ; 
solvewithaho  ; 
clrscr  ; 
end 
else 
begin 

clrscr  ; 
gotoxy  <  5,3)  ; 

write  (  ’you  cant  modify  your  output  ’  ) 

gotoxy  (  5,  10  )  ; 

write  (  ’hit  any  key  to  continue  ’ )  ; 

read  (  kbd,ch  )  ; 

goto  telosSx  ; 
end  : 
and  ; 
end  ; 
telosfcx : 

END  ,* 


BEGIN  (*  main  *) 

stringlSa  :=  ’step  4  :  individual  evaluation  of 
alternatives’  ; 
diskstatus  ; 
clrscr  5 

window  (  1,24,  80,  £5)  ; 

text co lor  (  black  )  ; 

textbackground  (  white  )  ; 

gotoxy  (2,2)  ; 

clreol  ; 

write  <  ’  ident i f icat ion  of  the  problem 

methods  :  ahp, electre, direct' )  ; 

window  (  1,13,80,23)  ; 

text  background  <  14  )  ; 
clrscr  ; 
read  1  ; 

readproblemf i le  ; 
read2  ; 

readnormfile  ; 
read3  ; 

if  not  norm. Spec i a  1 i zed  then 
begin 

if  (  not  ex ist (pruser )  )  then 

begin 

clrscr  ; 

write  (  ’  you  must  compute  first  the  criteria 
wait  ; 


goto  telosb  ; 
end  ; 
end 

e  1  se 
beg  in 

readspecfile  ; 

if  (  not  specfi le£. Completed  )  then 
begin 

clrscr  ; 

write  (  '  the  evaluation  of  the  criteria  is 
not  yet  completed  ’  >  ; 

wait  ; 

goto  telosb  ; 

end  ; 
end  ; 

if  (  not  norm. Special i zed  )  then 
beg  in 

readso 1 ut i onf i 1 e  ; 

numofcr  iter ia  :=  sol'ut  ion.  Nurnofcriter  ia  ; 
norrnvectorl  :=  solution.  Normvect  or  1  ; 

norrnvectorS  :=  sol  ut  ion.  Normvect  orS  ; 

end 
else 
begin 

nurnofcriter  ia  :=  specfi  le£.  Numofcr  iteri  a  ; 

norrnvectorl  :=  specfi  leS.  Norrnvectorl  ; 

normvect or£  :=  specfi  le£.  NorrnvectorS  ; 

end  ; 

read 4  ; 
read5  ; 

writ  enorm file  ; 

if  (  norm. Speci a 1 i zed  )  then 

begin 

solution.  Elect  re.  Nurnoftries  :  = 

specfi  le£.  Elect  re.  Nurnoftries; 

solution. Electre. Status  :=  specfile£. Electre. Status  ; 

sol ut ion. Ahp. Status  :=  specfi le£. Electre. Status  ; 

sol  ut  i  on.  Ahp.  Nurnof  t  ries  :  =  specfi  1  e£.  E  lect  re.  Numoftr  i  es 

a  :  =  0  ; 

repeat 

a  :=  a  +  1  ; 

until  (  narnex  =  norm.  Usersnarnes  CaJ  )  ; 

specfi le£. Final  index Ca3  :=  true  ; 
end  ; 

all  users  ; 


tel os6 


INCLUDE  FILE  STEP4-1 


OVERLAY  PROCEDURE  EVALUATE  1 


LABEL 

ert , ert  4 

CONST 

count  =  ; 


(VAR  ALTERNATIVES  :  TITLE1  : 
VAR  ALTVECT0R3  :  VECTORF  : 
VAR  W  :  INTEGER  ; 

VAR  NORMVECTQR 1  :  VECTORG 
VAR  AX  :  INTEGER  ) ; 


£0,  1.  .  £01  Of  real 


vec  ~  or  r 


rnatrix£,  result,  matrixS  :  array  Cl.. 
array5, alcvectorS, exchanges,  albvect 
larndal,  vector^  :  vectorf  ; 
sxchange4, al ternat i vesk  :  tit  lei  : 
numofalternat  ives,  I,  count  1,  xi,yl,al 
btjj  cjff  do,  ho,  ko,  Co,  po,  1  *  integer 

score, answers, integerl, row, rowl, 
lamda, ci , r i ,  cr  :  real  ; 
st  :  string  C93  ; 

ch  :  char; 


PROCEDURE  INFQ1 
begin 

window  ( 1,  yl  +  1, 30,  £3)  ; 
text  background  (14)  ; 

textcolor (  red  )  ; 

gotoxy  (1,5)  ; 

writeln  (  ’"note  :  be  as  accurate  as  possible 
—  any  #  greater  than  1  ’ )  ; 

writeln  <  ’  e.  g  ,£.45  or  15.  S  ’  )  ; 

Writeln  (  ’  a  possible  scale  for  inexact  is  :  ’  )  ; 
writeln  (  ’  3  =  weakly  important  than  ,  5  =  strongly  more 
import  an  than  ’  )  ; 

writeln  (  ’  7  =  very  strongly  more  imp. than 

9  =  absolutely  more  imp.  than’ ) ; 

Textcolor  (  black  )  ; 


BEGIN 

numofalternat ives  :=  w  ; 
case  numofalternat ives  of 
1,  £,  3,  4,  5,  6,  7  :  begin 

x 1  : =  50  ;  y 1  :  =  1  £  ; 


I 


<A 


a,  3 ,  10, 1  i 


i  c!t  1^,  14,  12 


end  ; 
begin 

xl  :=  55  ;  yl  :  =  1 3  ; 
end  ; 
beg  i  n 

xl  :=  70  ;  yl  : =15  ; 
end  ; 


end  ; 


nurnofalternat  ives  :=  w  ; 

if  nurnofalternat i ves  <>  0  then 

begin 

window  <l,l,xl,yl); 
text  background (blue)  ; 
c 1 rscr ; 

w i ndow  ( x 1 +1 , 1 , 30, yl) ; 
text bac  k g  r o  und (white)  ; 
cl rscr  ; 

window  ( 1 ,  y 1 +1 , 80, £3) ; 
text  background < 1 4 )  ; 

cl rscr  ; 

window  <  1, £4, 80, £5)  ; 

text  background  (  white  >  ; 

cl rscr  ; 

text co lor  <  black  )  ; 

gotoxy  (£, 1 )  ; 

write  (’step  4 : individual  evaluation  of  alternatives 
gotoxy  (  £, £  )  ; 

write  (  ’evaluation  of  alternatives  according  to 
criterion  ’ , normvector 1 Cax3 , ’  method* *  )  : 

window  <l,l,xl,yi); 
text  background  (  blue  )  ; 

text co lor  <  white  )  ; 

alt vectors  :=  alt vector 3  ; 
nurnofalternat  ives  :=  w  ; 
gotoxy  (  1,1)  ; 

write  (’  pairwise  comparison  ’)  ; 

gotoxy  (  10, 3  )  ; 

for  al  :=  1  to  nurnofalternat  ives  do 

write  (  copy (  a  1 1 ernat i ves Ca 1 3 ,  1 , 5 )  : 5  ,  ’  ’  )  ; 

for  al  :=  1  to  nurnofalternat ives  do 
beg  in 

gotoxy  (£  ,3+al  ); 

write  (copy(  al t ernat i ves Ca 1 3 , 1 , 5) : 5  )  ; 

end  ; 


<»  *> 


m 


window  < x 1 +1 , 1 , 80, y 1 ) ; 
text  background  (  white  )  ; 

textcolor (  0  )  ; 

got  oxy  (1,1)  ; 

write  (  ’  priority  vector  ’  )  ; 

for  al  :=  1  to  numofalternatives  do 
begin 

gotoxy  (2,3  +al  >  ; 

write  (copy<  al ternat i ves Cal D ,  1 ,  18)  ) 

end  ; 

for  a  :=  1  to  numofalternatives  do 
begin 

gotoxy (20, 3  +  a  )  ; 

write  (  chr  <  179  )  )  ; 


end  ; 

for  a  :=  1  to  numofalternatives  do 
Peg  i  n 

gotoxy <27,  3  +  a  )  ; 

write  (  c hr  <  179  )  5  ; 

end  ; 

window  ( 1,  yl  +  1 , 80, 23) ; 
text  background ( 14)  ; 

clrscr  ; 


infol  ; 

for  a  :=  1  to  numofalternatives  do 
rnatr  i  x2  Ca,  al  :=  1  ; 

for  a  1  to  (  numofalternatives  -  1  )  do 

beg  in 

criterial  :=  alternat ivesCal  ; 

for  b  :=  1  to  <  numofalternatives  -  a  )  do 

begin 

criteria2  :=  alternativesla+b]  ; 
repeat 

textcolor  <  0  )  ; 

gotoxy  <  1,2)  ; 

write  (  ’  is  ’ , criterial  ,  1  better  than 

criteria2  , ’  (y/n)  ?  1  ) 

Gotoxy  (  64,  2  )  ; 

clreol  ; 

read  (  answer  )  ; 

answer  :=  stupcase  (  answer  )  ; 

clreol  ; 

until  (  (  answer  =  ’ y’ )  or  (  answer  =  ’ n’  )  ) 

if  answer  =  ’ y’  then 
beg  i  n 

textcolor  (  black  )  ; 


„*•  „*> .  •  ,VAV'V  'i>7-  V  .VAM' 


gotoxy  (  1,3  )  ; 

write  (  ’  how  many  times  is  ’  ,  enter  ial ,  ’ 

than  ’  ,  criteria.*  ,  ’  ?  ’  )  ; 

Gotoxy  (1,4)  ; 

write  (  ’  (  see  note  below  )  ’  >  ; 

repeat 

gotoxy (  64  , 3  )  ; 

clreol  ; 

read  <  answer  )  ; 

answer  :=  stupcase  (  answer  )  ; 

val  (  answer  ,  answer3  ,  code  )  ; 

unt i 1  <  <  code  =  0  >  and  (  answer3  >  0  )  ) 

rnatri  xSCa,  a  +  bl  :=  answers  ; 

rnatr  i  x£  Ca+b,  al  :=  (  1  /  answers  )  : 

matr l x£ Ca, al  :=  1  ; 

w  i  ndo w  (1,1,  <  1 ,  y  1  : 

t ext  background  (  blue  )  ; 

gotoxy  (  (  3  + (  (a  +  b  )  *  8  ) )  ,  3  +  a  )  ; 

textcolor  (  white  )  ; 

write  <  answer3:4:£)  ; 

gotoxy (  2+<a*8),(3+(a+b)  )  ); 

write  <(1  /  answer3) :4:2  )  ; 

end  ; 

window  (  1 ,  y  1  + 1 , 80,  £'S)  ; 

text  background  (  14  )  ; 

textcolor  (  black  )  ; 

if  answer  =  ’ n’  then 
begin 

gotoxy  (  1,3  )  ; 

write  (  ’  how  many  times  is  ’  ,  cr i t er i a£,  ’ 
better  than  ’,  criterial  ,  ’  ? 

Got  oxy  (  1,4)  ; 

write  <  '  <  see  note  below  )  ’  )  ; 

repeat 

gotoxy (64,  3  )  ; 

c 1 reo 1  ; 

read  <  answer  )  ; 

val  (  answer  ,  answers  ,  code  )  ; 

until  (  (  code  =  0  )  and  (  answers  <>  0  )  ) 

mat r i xS Ca, a+bl  :=(1/  answer3)  ; 
matr i x2 Ca+b, a3  :=  answer3  ; 
matrix2Ca,al  :=  1  ; 

window  (  1,  1,  x  1 ,  y  1  )  ; 

textbackground  (  blue  )  ; 

textcolor  (  white  )  ; 


gotoxy  (  (  2  +  <  (a  +  b  )  *  8  ))  ,  3  +  a  )  ; 

write  <(1/  answer3 > : 4 : 3 >  ; 

gotoxy (  3+  <  a  *  8  )  ,  (  3  +(  a  +  b  )  )  ): 

write  (  answer3t4:2  )  : 

end  : 

window  <  1 ,  y 1  +  1 , 80, 23)  ; 

t ext  background  <  14  )  ; 

gotoxy  (1,2)  ; 

clreol  ; 
gotoxy  <1,3  )  ; 

clreol  ; 

got  oxy  (1,4)  ; 

c 1 reo 1  ; 

end ; 
end  ; 

•iia  t  r  i  ;<2  C  numo  fa  1 1  srnat  i  ves.  nurnof  a  1  b  ernat  l  zee  j  :  - 

art  : 

(*  matrix  multiplication  *) 

matrix3  :=  rnatrix2  ; 

for  a3  :=  1  to  count  do 

begin 

for  b3  :  =  1  to  rturnof  alt  ernat  i  ves  do 
beg  i  n 

for  c3  :=  1  to  nuwof a 1 1 ernat i ves  do 
array 5 Cc31  :=  matr i x2 Cb3, a33  ; 

for  h3  :=  1  to  nurnof  alt  ernat  i  ves  do 
begin 

score  : =  0  ; 

for  k.3  :=  1  to  nurnof  a  1 1  ernat  i  ves  do 
beg  i  n 

inteqerl  :=  arrayS  Ck33  *  matr  i  x2  C k.3,  h31  ; 

score  :=  score  +  integerl  ; 
end  ; 

result  Cb3, h31  :=  score  ; 

end  ; 
end  ; 

matrix2  :=  result  ; 
end  ; 

result  :=  matrixS  ; 

*  normalise  vector  *) 


or  p3  :=  1  to  nurnof a  1 1 ernat i ves  do 


I  *  .  *  %  m  m  ■»  **  K- "  »  ^  *  M  *  -  '*  ••  ■"  «*  **  .  *  •«  ■  ft  ■*  *4  1 a  4*  ^  V  "  «  *  “  *  "  -  ■* 
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row  : =  0 

for  f3  :=  1  to  nuniof a  1 1 ernat  i ves  do 
row  :=  row  +  result Cp3,  f33  ; 

al t vectors Cp33  :=  row  ; 
end  ; 

row 1  s  =  0  ; 

for  p3  :=  1  to  nurnof  alt  ernat  i  ves  do 
rowl  :=  rowl  +  altvector5Cp33  ; 
for  p3  :  =  1  to  nurnof  alternat  i  ves  do 
beg  in 

altvector5Cp33  :=  a  1 1 vectors Cp33  /  rowl  ; 
end  ; 

window  <  x 1  +  1  , 1 , 80, y 1 ) ; 

text  background  (  white  )  ; 

text  color  C  black  )  : 

for  al  :  =  1  to  numofal  temafc  ives  do 
beg  l  n 

got oxy <22, a 1+3)  ; 

write  <  alt vector 5  Cal  3 : 5 : 3  )  ; 

end  ; 

window  (  1,  yl  +  1, 80, 23)  ; 

text  background  <  14  )  5 

clrscr  ; 

(*  cornput  lrnax  and  the  cither  data  *) 
integerl  :=  0  ; 

for  al:=  1  to  nurnof alternat  i  ves  do 
begin 

score  : =  0  ; 

for  bl  :=  1  to  nurnof  alternat  i  ves  do 
beg  i  n 

integerl  :=  rnatr  i  x3  Cal ,  bl  3  *  a  1 1  vect  or5  Cb  1 1 
score  :=  score  +  integerl  ; 
end  ; 

larndalCall  :  =  score  ; 
end  ; 

integerl  :=  0  ; 

for  al  :=  1  to  nurnof  a  1 1  ernat  i  ves  do 
beg  in 

vector2Cal3  :=  larndalCal)  /  altvectorSCal  3  ; 

integerl  :=  integerl  +  vector2Cal3  ; 
end  ; 

larnda  :=  <  integerl  /  nurnof  a  1 1  ernat  i  ves  )  ; 

if  nurnof  a  1 1  ernat  i  ves  =  1  then 

nurnof  a  1 1  ernat  i  ves  :  =2  ; 


ci  :  =  <  ( larnda— numofalternat  ives)  /  (numofalternat  ives 
case  numofalternat  i  ves  of 


1  :  ri 

2:  Ri 

3 :  Ri 

4:  Ri 

5 :  R  i 

6:  Ri 

7:  Ri 

Q:  Ri 

9:  Ri 

10:  Ri 

11:  Ri 

12:  Ri 

13:  Ri 

14:  Ri 

15:  Ri 


cr  : =  c i  / 
w i nd  ow  <  1 


=  0.  00000 1 
=  0.000001 
=  0.  58  ; 

=  0. 90  ; 

=  1.  12  ; 

=  1.24  ; 

=  1 . 32  ; 

=  1.41  ; 

=  1.45  ; 

=  1.49  ; 

=  1.51  ; 

=  1 . 4Q  ; 

=  1.56  ; 

=  1.57  ; 

=  1.39  ; 


r  l  ; 

y  1  +  1 , 80, 23 > 


altvectorfi  :=  altvector5  ; 
alternat ivesk  :=  alternatives  ; 
repeat 

count  1  :=  0  ; 

for  a  :=  1  to  <  numofalternat ives 


do 


beg  l  n 

if  altvectorSCa]  < 
beg  i  n 

exchange3[a] 
alt vectors Ca] 
alt vectors  Ca+1 3 
exchange4  Call 
alternat lvssCal 
a  1 ternat i ves  Ca+ 1 ] 
count  1  :  =  count  1  +  1 

end  ; 
end  ; 

unt i 1  count  1=0: 


a  1 1 vect or5 Ca  + 1 1  then 

:=  altvectorSCa]  ; 

:=  altvector5[a+l]  ; 

: =  exchange3[a]  ; 

:=  a  1 1 ernat i ves Cal  ; 

:=  alternat ivesCa+l]  ; 
:=  exchange4Ca]  ; 


for  al  :=  1  to  numofalternat ives  do 
beg  i  n 

gotoxy  (  <  <  5  *  al  > )  ,  10  )  ; 

write  (  copy <  alternativesCal], 1,3)  )  ; 

end  ; 


for  al  :=  1  to  numof a  1 1 ernat i ves  do 
beg  i  n 

gotoxy  (  (  (  5  *  a  1  )  )  , 


1  1  ) 


write  <  a 1 t vector5 Ca 1 3 : 3 : 2  )  ; 

end  ; 

text  background  (  green  )  ; 

for  ai  :=  i  to  nurnof a 1 t ernat  ives  do 

beg  i  n 

gotoxy  (  (5  +  (  5  *  al  ) )  ,  3  )  ; 

for  bi  :=  1  to  round  (  al t vectors Ca 1 3  *  10  ) 
beg  i  n 

gotoxy  (  (  (  5  *  al  >)  ,  (9  -bl)  )  ; 

write  (  1  1 )  ; 

end  ; 
end  ; 

text  background  (  14  )  ; 

t e x t co 1 or  (  blue  )  ; 

gotoxy  (  36,  1)  ; 

writs  \  1  *■*  lamda  max 
got oxy (  36, 2  )  ; 
write  <  ’  consistency  i  rid  ex 
gotoxy  < 36,  3)  ; 

write  <  ’  randomised  index 
gotoxy  (36,4)  ; 

write  (  ’  consistency  ratio  =  ’,  cr:4:2  )  ; 

gotoxy  (36,6)  ; 

write  (’**  there  is  some  stat ist ical ’ )  ; 

gotoxy  <  36,7)  ; 

write  (  1  inconsistency  in  your  evaluation.’ ) ; 
Got  o  x y  <  36 , 8 )  ; 

write  (’  (study  highlighted  values  for  ’)  ; 

gotoxy ( 36, 3 ) ; 

write  (’  probable  inconsistent  evaluation)1)  ; 
text co lor  (  black  )  ; 

alt vector 3  :=  altvectorG  ; 
alternatives  :=  alternat ivesk  ; 
for  p3  :=  1  to  nurnof a 1 t ernat i ves  do 
beg  i  n 

for  f3  :=  1  to  nurnof  a  1 1  ernat  i  ves  do 
begin 

result  Cp3, f33  :=  0  ; 

rnatri x2Cp3, f33  :=  £  ; 

end 
end  ; 
end  ; 

gotoxy  (  36,  11)  ; 

write  (  ’do  you  want  to  modify  the  data  (y/n)  ?  1  ) 

Repeat 


=  1  ,  1  arnc  a  :  4  ;  2 

=  1  ,  c  l  :  4  :  2  )•  : 

=  1  ,  r  i  :  4  :  2  )  ; 


gotoxy (  75,  11)  ; 

c  1  reo  1  ; 

r'ead  (  answer  )  ; 

answer  :=  stuocase  (  answer  )  ; 

ant i 1  (  (  answer  =  ’ y’  )  or  (  answer  =  ’  n’  )  )  ; 

t ext  background  (  14  )  ; 

if  answer  =  ’  y’  then 
begin 

clrscr  ; 

error  :=  false  ; 
repeat 

gotoxy  (2,2)  ; 

c  1  reo  1  ; 

write  <  ’name  of  the  first  alternative  ?  ’  )  ; 

Read  <  answer  )  ; 

answer  :=  stuocase  <  answer  )  ; 

for  ai:=i  to  numof alternat ives  do 
□  eg  i  n 

if  answer  =  alternativesCal]  then 
error  :=  true; 

end ; 

unt i 1  error  ; 
a  :=  0  ; 
repeat 

a  : =  a  +1  ; 

until  answer  =  alternativesCal  ; 

criterial  :=  answer  ; 
rt  4 : 

error  :=  false  ; 
repeat 

gotoxy  (  2, 3)  ; 

c  1  reo  1  ; 

write  (  ’name  of  the  second  alternative  ?  ’  )  ; 

Read  (  answer  )  ; 

answer  :=  stupcase  <  answer  )  ; 

for  bl  :=  1  to  numofalternat ives  do 
beg  i  n 

if  answer  =  alternat ives Cbl 1  then 
error  : =  true; 

end  ; 

unt i 1  error  ; 
if  answer  =  criterial  then 
goto  ert4  ; 
b  :  =  0  ; 
repeat 

b  :  =  b  +  1  ; 

until  answer  =  alternat ives Cbl  ; 


A."  •f.  .. .  »  .  ■  ,  »  .  >  ■■  <•  «■  .  . 


cr iteria2  :=  answer  ; 

window  ( 1 , 1 , x 1 , y 1 )  ; 

t ext  background  (  blue  )  ; 

rnatri  x2’  :=  matri  x3  ; 

text co lor  (  red  +  16  )  ; 

gotoxy  (<£+(b*8)),3+a)  ; 

write  <  matrixSCa, b] :4:£  >  ; 

text color  (  black  )  ; 

window  <  1  ,  y 1+1  ,  Q0, 23)  ; 

text  background  (  14  )  ; 

clrscr  ; 
repeat 

gotoxy  (  1,2)  ; 

write  (  ’is  ’ , criterial  ,  ’  better  than  ’  , 

criteriaS,  ’  ?  ’  )  ; 

Gotoxy  (  £4,  2  )  ; 

c 1  re o  1  : 

read  (  answer  )  : 

answer  stupcase  (  answer  )  ; 

clreol  ; 

unt l 1  <  (  answer  =  ’ y’  )  or  (  answer  =  ’  n’  )  )  ; 

if  answer  =  ’ y1  then 

begin 

gotoxy  (  1,3  )  ; 

write  (’how  many  times  is  ’, criterial, ’  better  than 
criteriaS  ,  ’  ?  ’  )  ; 

Gotoxy  (  1,4)  ; 

write  (  ’  (  see  note  below  )  ’  )  ; 

infol  ; 

repeat 

gotoxy  (  £4  ,3  )  ; 

clreol  ; 

read  (  answer  )  ; 

val  (  answer  ,  answer,!  ,  code  )  ; 

until  (  (  code  =  0  )  and  (  answer!  <>  0  )  )  ; 

rnatr i  x2  Ca,  b!  :=  answer!  ; 
rnatrixSCb,  a!  :=  (  1  /  answer!  )  ; 

matrixSCa, a!  :=  1  ; 

w  i  ndow  (1,  1,  x  1 ,  y  1 )  ; 

text  background  (  blue  )  ; 

gotoxy  <(2+(b*Q)),3+a)  ; 

text co lor  (  white  )  ; 

write  <  answer3:4:2)  ; 

gotoxy <  £+(a*Q),<3+  b  )); 

write  (<1  /  answer3) :4:£  )  ; 


window  <  1 , y 1 + 1 , 6®, 2j)  ; 

t ext  background  (  14  )  ; 

text co lor  (  black  )  ; 

if  answer  =  ’ n’  then 
beg  l  n 

got oxy  (  1,3  )  ; 

write  (  ’  how  many  times  is  ’ , criteriaS, ’  better  than 

’ ,  cr i t  er i a  1  ,  ’  ?  ’  )  ; 

Got  oxy  (1,4)  ; 

write  (  ’  (  see  note  below  )  ’  )  ; 

infol  ; 

repeat 

gotoxy<64, 3  )  ; 

c 1 reo 1  ; 

read  (  answer  )  ; 

val  (  answer  ,  answer3  ,  code  )  ; 

until  (  (  code  =  0  )  and  (  answer 3  <>  0  )  )  : 

ma triHcCa, bl  : = ( 1 /  answar3)  : 
rnat  r  i  x£  C  b.  all  ;=  answers  : 
mat  r  i  x2  Ha,  a!  :  =  1  ; 

window  (  l,l,xl,yl)  ; 
text co lor  (  white  )  ; 

text  background  <  blue  )  ; 

gotoxy  (  (  2  +(  b  *  8  )  ),  3  +  a  >  ; 

write  (<1/  answer 3) : 4 : 2)  ; 

gotoxy  (  2+(a*8),(3  +  b  )  )  ; 

write  <  answers : 4 : 2  )  ; 

end  ; 

window  (  1 , y 1 + 1 , 80, 23)  ; 

t ext  background  <  14  )  5 

gotoxy  (1,2  )  ; 

clreol  ; 

gotoxy  (1,3  )  ; 

clreol  ; 

got  oxy  (1,4)  ; 


■+•  b  )  )  ; 


clreol  ; 
goto  ert 
end  ; 

w i ndow (1,1, 30, 25 ) ; 
gotoxy ( 1 , 24) ; 


END  ; 


OVERLAY  PROCEDURE  EVALUATES  (  VAR  ALTERNATIVES  :  TITLE1  ; 

VAR  ALTVECT0R3  :VECTORF  ; 
VAR  W  :  INTEGER  ; 

VAR  NORMVECTOR 1  :  VECTORG  : 

var  ax  :  integer  )  : 


LABEL 

ert , ert 4  ; 

CONST 

count  =  3  ; 


VAR 


rnatri x£, result , rnatri x3  :  array  E 1 . . £0, 1 . . £03  of  real  ; 

arrays,  altvector5, exchanges, altvector6  :  vectorf  ; 

lamdal, vector£  :  vectorf  ; 

exchange4  , alternat i vesk  :  tit  lei  ; 

numof al t ernat  i ves,  I ,  count  1,  xl,yl,al,  bl, 

a3, b3, c3, d3, h3, k3, f3, p3, 1  :  integer  ; 

score, answer3, integerl, row, rowl, 

larnda,  ci ,  r  i  ,  cr  :  real  ; 

st  :  string  C93  ; 

ch  :  char; 

PROCEDURE  INF01  ; 

beg  i  n 

window  < 1 ,  y 1 +  1 , 80, £3)  ; 
text  background  (14)  ; 

texteolor (  red  )  ; 

gotoxy (1,8)  ; 

writeln  <  ’"note  :  be  as  accurate  as  possible 

any  #  between  0  and  10  e.  g  ,£.45  or  9.  34  ’  )  ; 

Writeln  (  ’  a  possible  scale  for  inexact  is  :  ’  )  ; 
writeln  (  ’  3  =  weakly  important  than  ,5  =  strongly  more 
import an  than  ’  )  ; 

writeln  <  ’  7  =  very  strongly  more  imp. than  9  = 

absolutely  more  imp.  than’); 

Texteolor  (  black  )  ; 

end  ; 


BEGIN 

nurnofal ternat  ives  :=  w  ; 

case  nurnofal ternat ives  of 
1, £,3,4, 5, 6, 7  :  begin 

xl  :=50  ;  yl  :=1£  ; 
end  ; 

8, 9, 10, 1 1  :  begin 

x 1  s  =  55  ;  y 1  :  =  13  ; 
end  ; 

1  £  ,  1  ^>7  14,15  :  beg  in 

x 1  s=  70  ;  yl  :=15  ; 
end  ; 
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nurnof  alternat  ives  :=  w  ; 
if  numofalternat  ives  <>  0  then 

beg  in 

window  (1,  l,xl,yl)  ; 
text  background ( bl ue )  ; 
clrscr ; 

window  <xl+l, 1, 80,  yl )  ; 
text  background (white)  ; 
clrscr  ; 

window  ( 1,  yl  +  1, 80, £3)  ; 
textbackground ( 14)  ; 

clrscr  ; 

window  (  1,24,30,25)  ; 

text  bac  !<  g  ro  und  (  wh  its?  )  ; 

clrscr  ; 

text co lor  (  black  )  ; 

gotoxy  <2, 1 )  ; 

write  (’step  5:direct  input  of  alternatives  weights’) 
altvector5  :=  alt vector 3  ; 

window  ( x 1 +  1 ,  1 , 80, y 1 )  ; 
textbackground  (white  )  ; 

t ext co lor (  0  )  ; 

gotoxy  (1,1)  ; 

write  <  ’  priority  vector  ’  )  ; 

for  al  :=  1  to  nurnofalternat  ives  do 
beg  i  n 

gotoxy  (2,3  +al  )  ; 

write  (copy (  alternat ivestall ,  1,  18)  )  ; 

end  ; 

for  a  :=  1  to  nurnofalternat ives  do 
beg  l  n 

gotoxy <20, 3  +  a  )  ; 

write  (  chr  (  179  )  )  ; 

end  ; 

for  a  :=  1  to  nurnofalternat  ives  do 
beg  i  n 

gotoxy (27, 3  +  a  )  ; 

write  (  chr  (  179  )  >  ; 

end  ; 

window  ( 1 , yl+1 , 80, £3) ; 
t ext  background ( 14)  ; 

clrscr  ; 


irifol  ; 

text co lor  (  0  )  ; 

gotoxy  (  2,2)  ; 

write  (  ’enter  the  weights  of  the  alternatives 
for  a  :=  1  to  numofalternatives  do 

beg  i  n 

gotoxy  (  2  ,  2+a  )  ; 

write  (  alternat ivesCal 
end ; 

for  a  :=  1  to  nurnofal ternat  i  ves  do 
begin 
repeat 

gotoxy  (  length (alternat ives Cal ) +5  ,  2+a  ) 

clreol  ; 

read  <  answer  )  ; 

val  (  answer  ,  answers  ,  code  )  ; 

unt i 1 ( (code  =  Q) and (answer3> —1 >  ana  ( answers 
a  It vectors  Cal  :=  answers  : 
end  ; 

row 1  : =  0  ; 

for  pS  :=  1  to  numofalternatives  do 
rowl  :=  rowl  +  altveetor5Cp31  ; 
for  pS  :=  1  to  numofalternatives  do 
begin 

altvectorS Cp31  :=  alt vect or 5 C p31  /  rowl  ; 
end  ; 

window  <51 , 1 , Q0, 21 ) ; 

t ext  background  (  white  )  ; 

for  a  :  =  1  to  numofalternatives  do 

begin 

gotoxy (22, a+3)  ; 

write  (  alt vectors  Cal : 5 s 3  )  ; 

end  ; 

window  (1,13,30,23  ); 
text  background ( 14)  ; 

clrscr  ; 

alt vectors  :=  alt  vectors  ; 
alternat ivesk  :=  alternatives  ; 

repeat 

count  1  :=  0  ; 


for  a  :=  1  to  <  nurnof  al  ternat  ives-1 )  do 
beg  in 

if  a  1 1 vect or5 Cal  <  a  1 1 vect orS Ca+ 1 1  then 
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exchangeSCa]  :=  altvectorSCa]  ; 
altvectorSCa]  :  =  a  1 1 vect orS Ca+ 1 3 
altvector5Ca  +  l]  :=  exchanges  [a!]  ; 

sxchange4Ca]  :  =  alternat ivesCa]  ; 
altemat  ivesCa]  :=  altemat  ivesCa+l]  ; 
alternat ivesCa+1]  :=  exchanges Ca]  ; 
count  1  : =  count  1  +  1  ; 

end  ; 
end ; 

unt i 1  count  1=0; 

for  a  :=  1  to  (  numof a lternat i ves  )  do 
beg  i  n 

gotoxy  <(  (5*  a)), 9  ); 

write  (copy (  alternat ivesCa] , 1, 3)  )  : 

end  ; 

for  a  :=  1  to  (  nuroo f a 1 t ernat i ves  >  do 
begin 

gotoxy  (  (  <  5  ■*  a  )  )  ,  10  )  ; 

write  <altvector5Ca] :3:£)  ; 

end  ; 

text  background  (  green  )  ; 

for  a  :=  1  to  <  numof alternat i ves  )  do 

begin 

gotoxy  (  (  5  *  a  ) , 8  )  ; 

write  <  *  ’  )  ; 

end  ; 

for  a  :=  1  to  (  numof alt ernat i ves  )  do 
begin 

gotoxy  <  (5  +  <  5  *  a  )  )  ,  9  )  ; 

for  bl  :=  1  to  round  (  altvectorSCa]  *  10  ) 

beg  i  n 

gotoxy  (  (  (  5  *  a  > )  ,  (9  -bl)  )  ; 

write  (  ’  ’  )  ; 

end  ; 
end  ; 

got  oxy  (2,11); 

text  background  <  14  )  ; 

textcolor  <  blue  )  ; 

write (’  do  you  want  to  modify  the  evaluation  of 
alternatives  (y/n)  ?  ’ )  ; 

Repeat 

gotoxy (  65, 11)  ; 

clreo 1  ; 

read  (  answer  )  ; 

answer  :=  stupcase  (  answer  )  ; 

unt i 1  (  (  answer  =  ’ y1  )  or  (  answer  =  ’  n’  )  ) 


window  ( 1 ,  1  o,  00,  c.'o  ); 
t ext  background < 14 )  ; 

if  answer  =  ’ y*  then 
begin 

clrscr  , 
goto  ert  ; 
end  ; 
end  ; 


alternatives  :=  alternativesk  ; 


END  ? 


OVERLAY  PROCEDURE  DIRECTE'A  (  VAR  ALTERNATIVES  :  TITLE 

VAR  ALTVECTORo  :  VECTORF 
VAR  :-J  :  INTEGER  ; 

VAR  N0RMVECTCR1  :  VECTOR 
VAR  AX  :  INTEGER  )  ; 

LABEL 

ert 9, telosSx  ; 

CONST 

count  =  3  ; 


o 


rnatri  x£,  result ,  rnatri  x3  :  array  C  1 .  .  30,  1 .  .  £83  of  real 
arrayS, altvectorS, exchanges, altvectorE  :  vectorf  ; 
larndal ,  vectors  :  vectorf  ; 
exchanged  , alternativesk  :  tit  lei  ; 
tempgrade,  ternpgradel  :  vectorf  ; 

numof a 1 1  ernat i ves,  I , count  1, x 1 , y 1 , a 1 , b 1 ,  limit, xS, yS, 

a  o ,  bo,  co,  do,  ho,  k. o,  fo,  po,  1  ■  integer  ; 

score, answer3,  integer 1 , row, 

rowl ,  larnda,  ci ,  ri ,  cr,  count  3  :  real  : 

st  :  string  C91  ; 

cn  :  char; 


BEGIN 

numof alt ernat i ves  :=  w  ; 
case  numof alt ernat i ves  of 
1 , 2,  3,  4,  5,  6,  7  :  begin 

xl 

end  ; 

8, 9, 10, 1 1  :  begin 

x  1 


:=  50  ;  yl 


t .  f,  ■r.’f. 


m 


12,  13,  14,  1! 


end  ; 

:  begin 

x 1  : =  70  ;  y 1  : = 1 5  ; 

end  ; 


end  ; 


nurnof alternat  i ves  :=  w  ; 

if  nurnof  alt  ernat  i  ves  <>  0  then 

begin 

window  (l,l,xl,yl); 
text  background ( bl ue)  ; 
clrscr ; 

window  (  x  1  +  1,  1 , 80,  y  1 )  ; 
text  background (white)  ; 
clrscr  ; 

w i ndow  (  1 , v 1 + 1 , 80, 23 ) : 
t ext  background (14)  ; 

clrscr  ; 

window  <  1,24,80,25)  ; 

text  background  (  white  )  ; 

clrscr  ; 

text co lor  <  black  )  ; 

gotoxy  (2,1)  ; 

write (’step  4  :  individual  evaluation  of  alt ernat ivss)  ; 
gotoxy  (  2, 2  )  ; 

write  (  ’method  used  :  direct  incut  ’  )  ; 

w i ndow  (1, 1, x 1 , y 1 ) ; 
text  background  (  blue  )  ; 

text co lor  (  white  )  ; 

gotoxy  (  2,  1 )  ; 

write  <  ’  altern. Evaluation  :  working  area  ’  )  : 

for  a  :  =  1  to  nurnofcr iteria  do 

begin 

answer  :=  norrnvectorl  Ca]  ; 
delete  (  answer, 4, length (answer)  )  ; 

gotoxy  (  2, a+3)  ; 

write  <  answer:4  )  ; 

end  ; 

for  a  :=  1  to  nurnof  a  1 1  ernat  i  ves  do 
beg  i  n 

answer  :=  alternat ives Cal  ; 
delete  (  answer, 4, length (  answer) )  ; 

gotoxy  (  9  +  (  5*(a-l)>,3)  ; 

write  (  answer  )  ; 

end  ; 

window  ( x 1 + 1 , 1 , 80, y 1 ) ; 


text  background  (  white  )  ; 

textcolor<  0  )  ; 

got oxy  (1,1)  ; 

write  (  ’  priority  vector  ’  )  ; 

for  al  :=  1  to  nurnof a  1 1 ernat  i ves  do 
beg  i  n 

gotoxy  <2,3  +  al  )  ; 

write  <copy(  al t ernat i ves Ca 1 1 , 1 , 1 8)  >  ; 
end  ; 

for  a  :=  1  to  nurnof  a  1 1  ernat  i  ves  do 
beg  i  n 

gotoxy <20, 3  +  a  )  ; 

write  <  chr  <  173  )  )  ; 

end  ; 

for  a  :=  1  to  nurnof  alt  ernat  i  ves  do 
beg  i  n 

gotoxy <27, 3  +  a  >  ; 

write  <  chr  ;  179  '  '  : 

and  ; 


window  < 1 , y 1  + 1 , 80, 23 )  ; 
text  background < 14)  ; 

clrscr  ; 

for  a  :=  1  to  nuMoferiteria  do 
begin 

if  norm. special  iced  Then 
beg  i  n 

if  specf  i  1  e2.  norm index  CaJ  <>  narnex  Then 
goto  telos9x  ; 

end  ; 

gotoxy  <  2,  2)  ; 

write  <  ’  *■»  evaluate  alternative  according  to 
criteria’  ,  nornivectorl  Cal,  ’  :  ’  )  ; 

for  b  :=  1  to  nurnofalternat  i ves  do 
beg  i  n 

window  ( 1 , y 1+1 , 80, S3) ; 
t ext background <  1  4 )  ; 

text color  <  black  )  ; 

goto xy  <  5, b+3)  ; 

write  <b  , ’  -  for  alternative  ’  ,  a 1 1 ernat i ves C b 1 

’  any  value  between  0  and  10  n  ’  )  ; 

X2  : =  7S  ;  y2  :=  b  +  3  ;  count 3  :=  0  ;  limit  : -  10 
checknurnber  (  answer,  x  1 ,  y  1 ,  1  irn  t ,  count3  )  ; 

tempgradel Cb]  :=  count3  ; 
window  (l,l,xl,yl); 
t ext  background  <  blue  ); 
text co lor  (  white  >  ; 

gotoxy  <  3  +  <  5* < b- 1 > ) , 3+a )  ; 

write  (  tempgrade 1 Cbl : 3 : 2  )  ; 

end  ; 
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ternpgrade  :=  tempgradel  ; 

<*  normilize  vector  *> 
row  :=  0  ; 

for  p3  :=  1  to  nurnof a  1 1 ernat  i ves  do 
row  :=  row  +  ternpgrade Cp33  ; 

for  p3  :=  1  to  numof a 1 t ernat  ives  do 

ternpgrade Cp33  :=  t empgrade Cp33  /  row  ; 
window  <  xl  +  1  ,  l,Q0,yi  )  ; 

text  background  <  white  )  ; 

text co lor  (  black  )  ; 

for  al  :=  1  to  numo  fait  ernat i ves  do 
begin 

gotoxy  (  22, al  +  3  )  ; 
write  <  t empgrade Cal  3 : 3 : 2  )  ; 

end  : 

w i nc ow  . 1 . y 1 + 1 , 80 , 23 ) ; 

text  back,  i r u nd  \  1 4 >  ; 

-  1  r  s  c  r  ; 

for  ai  :  =  1  to  nurnof a 1 1 ernat i ves  do 
beg  i  n 

gotoxy  <(  <5*  al)),10  ); 

write  (  copy (  al ternat i ves Cal 3 , 1 , 3)  )  ; 

end  ; 

for  al  :=  1  to  numof a 1 1 ernat i ves  do 
beg  i  n 

gotoxy  <  (  (  5  *  al  > )  ,  11  )  ; 

write  (  t  ernpgrade  Cal  3  :  3  :  2  >  ; 

end  ; 

text  background  <  green  >  ; 

for  al  :=  1  to  numof alternat ives  do 

beg  in 

gotoxy  <  (5+  (  5  *  al  ))  ,  9  )  ; 

for  bl  1  to  round  (  ternpgrade  Ca  1 3  *  10  >  do 

beg  l  n 

gotoxy  (  (  (  5  *  al  ))  , (9  -bl)  )  ; 

write  (  ’  ’ )  ; 

end  ; 
end  ; 

t ext  background  (  14  )  ; 

text  co  lor  (  black.  )  ; 

gotoxy  <  36, 11)  ; 

write  (’do  you  want  to  modify  the  weights  (y/n) ?  ’  )  ; 

repeat 

gotoxy  (  78,  11); 
clreol  ; 

read  (  answer'  )  ; 

answer  :=  st upcase ( answer )  ; 

until  (  (  answer  =  ’ Y’ >  or  (  answer  =  ’ n’  )  )  ; 
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'mj'ai&c+y. 


’  y’  then 


i  f  answer  = 
begin 

clrscr  ; 
error  :=  false  ; 
repeat 

gotoxy  (2,2)  ; 

el  reel  ; 

write  (  ’name  of  the  alternative  ?  ’  )  ; 

read  (  answer  )  ; 

answer  :=  stupcase  (  answer  )  ; 

for  al  :=  1  to  nurnof a  1 1 ernat i ves  do 
beg  i  n 

if  answer  =  a  1 1 ernat i ves Ca 11  then 
error  : =  true  ; 

end  ; 

unt i 1  error  ; 

a  1  :  ~  0  ; 

•repeat 

a  1  :  =  a  1  +  1 

until  answer  =  a It ernat i ves Cal 1  ; 

clrscr  ; 

Window  <l,l,xl,yl); 

text background  (  blue  ); 

text co lor  <  red  )  ; 

gotoxy  (  9  +  <  5* (ai-1 ) ) , 3+a>  ; 

write  (  ternpgradel  Cal  1  :  3 : 2  )  ; 

window  ( 1 , y 1+1 , 30, 23) ; 
text  background ( 1 A)  ; 
textcolor (black  )  ; 

gotoxy  (  2,  2)  ; 

write  (  ’for  alternative  ’,  a 1 t ernat i ves Ca 1 1 
’  any  value  between  0  and  10  ?  ’  > 

X2  :=  76  ;  y2  :=  b  +  3  :  count 3  :=  0  ;  limit 

checknumber  (  answer,  x  1 ,  y  1 ,  1  irni  t ,  count  3  )  ; 

ternpgradel  Cal  1  :=  count 3  ; 

w i ndow  (1,  l,xl,yi)  ; 
t ext  background  (  blue  ); 
textcolor  (  white  )  ; 

gotoxy  (  3  +  (  5* (al-1 ) ) , 3+a>  ; 

write  (  ternpgradel  Cal  1  : 3 : 2  )  ; 

goto  ert3  ; 
end ; 

for  al  :=  1  to  nurnof  a  1 1  ernat  l  ves  do 
a  1 1  mat  r  i  x  Ca,  a  1 1  :=  ternpgrade  Ca  1 1  ; 


u 


window  ( 1 ,  y 1  + 1 , S0, £3)  ; 
textbackground  (  14  ); 
textcolor  (  black  )  ; 

clrscr  ; 
tel os9x : 
end  ; 
end  ; 

END  ; 

INCLUDE  FILE  4-2 

OVERLAY  PROCEDURE  ELECTRE  ; 


TYPE 


5C3l? 


=  array  Cl.. 4]  Of  name  : 

-  arrav  C 1 . . 91  Of  integer 


=  jrra1 


fl,f£,  a,  b,  c,  limit  : 
sum, result, pfactor, 


i nt  eger 


qfactor, max, min, counts  :  real  ; 

d iscordance, concordance, 

rnatrixdance,  matrixcori  :  matrix£iZi 

outranking  :  arrayS; 

criteria  :  vectorg  ; 

cr it value  :  vectorn  ; 

alter  :  titlel  ; 

grading  :  arayl  ; 

grad ingwei ght  :  aray£  ; 

i ndex , c i ndex ,  d i ndex  :  ind  ; 

st 1  :  name  : 


PROCEDURE  WRITE WORKSHEET  ; 

BEGIN 

w i  nd ow  (  1,1,41,12)  ; 

t ext  background  (  blue  )  ; 
textcolor  (  wh i t  e  )  ; 

got  oxy  (2,1)  ; 

write  (  ’  altern.  Evaluat ion  :  working  area  ’  )  ; 

for  a  :=  1  to  numofcriter ia  do 
begin 

answer  :=  criteriaCal  ; 

delete  (  answer, 4, length (answer)  )  ; 

gotoxy  <  5  +  (  4*<a-l>),3)  ; 


write  (  answer:4  ) 
end  ; 

for  a  :=  1  to  nuraofa lternat ives  do 
beg  i  n 

gotoxy  (  2, a+3)  ; 

answer  :=  alterCal  ; 

delete  <  answer, A,  length (  answer) )  ; 

write  (  answer:3  )  ; 

end  ; 

END  ; 


PROCEDURE  GRADES  ; 

VAR 

base, step  :  real  ; 

BEGIN 

for  a  :  =  1  to  nurnof er iter i  a  go 
beg  i  n 

base  :=  critvalueCal  *  100  ; 
step  :=  base  /  4  ; 
for  b  :=  1  to  5  do 

grad i ngwei ght Cb, al  :=  base  -  (  step  *  (  b  -1)  )  ; 

end  ; 

END  ? 


PROCEDURE  WRITEGRADING  ; 

BEGIN 

window  (41,1,30,12)  ; 

text  background  <  white  ); 

text co lor  <  black  )  ; 

got  oxv  (  2,1)  ; 

write  (  ’grading  scale  ’  )  ; 

for  a  :=  1  to  nurnofcriteria  do 
begin 

gotoxy  (  7  +  (  4*(a~l)),3)  ; 

answer  :=  criteriaCal; 

delete  (  answer,  4,  length (  answer)  )  ; 

write  (  answer : 4  )  ; 

end  ; 

gotoxy (1,4)  ; 

text col or  <  red  )  ; 

write  (  ’ weig.  :  ’  )  ; 

For  a  :=  1  to  nurnofcr iter ia  do 
beg  in 
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:VV V' . -\  -V  \  W  *v.v  v;.%  .• 


r  f  ■ 


gotoxy (  4  +■  (  4*a> , 4)  ; 

write  (  round  (cntval'.ie[a]*100)  )  ; 

end  ; 

text co lorC  black  ; 
got  ok'/  (1,5  )  : 

write  (  ’  e  x  c  e  ’  )  ; 

got  ox  y  <1,7  )  ; 

write  <  ’ good’  )  ; 
gotoxy  (1,8)  ; 
write  (  ’ aver’  )  ; 
gotoxy  (  1,9); 

wr  i  t  e  <  ’  f  a  i  r’  )  ; 

gotoxy (1,10)  ; 

write ( ’ weak’ )  ; 

grades  ; 

for  a  :=  1  to  nurnoferiteria  do 
o  e  q  i  n 

for  b  :=  i  ~o  3  do 
begin 

gotoxy  (  4  +  (  4*a),  b  +  5  )  ; 

write  (  round (gradingweight  Cb,  a] )  )  ; 

end  ; 

END  ; 


PROCEDURE  GRODEALTERNATI VES  ; 
LABEL 


jrnp3  ; 

BEGIN 


window  (  1,  13,30,24)  ; 

text  background  (  14  )  ; 
text  color  <  black  )  ; 

if  norm. specialised  Then 

grading  :=  speef i le£. grading  ; 

For  a  :=  1  to  nurnofa  1 1 ernat  i ves  do 
beg  i  n 

gotoxy  (  £,  2)  ; 

write  (  ’ **  evaluate  alternative  alter [a]  ,  ’  :  1 

for  b  :=  1  to  nurnoferiteria  do 
beg  in 

if  norm. special i zed  Then 

begin 

if  speef  i  le£.  norm  index  Cb]  =  narnex  Then 
goto  jmp3  ; 

end  ; 

write  (b  ,’  -  for  criterion  ’, criteria CbD ,’ any  value 
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between  0  and  ’ , round (gradingweight Cl , bl ) 
XI  :=  76  ; 
y  1  :  =  b  +  3  ; 

count 3  : =  0  ; 

limit  :=  round (  grad ingwei ght C 1 , bl )  ; 

checknumber  (  answer,  x  1 ,  yi  ,  1  irnit ,  counts  )  ; 

gradingla, bl  :=  count  3  ; 

window  (  1,  1,40,  12)  ; 

t ext  background  <  blue  ); 

gotoxy<  2  +  (  4*b)  , a+3>  ; 

write  (round ( grad i ng Ca, bl > >  ; 

window  (  1,13,60,23)  ; 

t ext  background  (  14  ); 

j  mp3 : 

end  5 
clrscr  ; 
end  ; 

END  ; 

PROCEDURE  FACTORS  ; 

BEGIN 

window  (  1,13,60,23)  ; 

text background  (  14  ) ; 

clrscr  ; 

text co lor  (  black  )  ; 

gotoxy  (2,4)  ; 

write  (  ’ **  concordance  threshold  (p)  10  -  1001  : 
gotoxy  (  2,5)  ; 

write  (  ’ (  nb  .  becomes  severe  as  it  approaches  100) 
XI  :=  70  ;  yl  :=  5  ;  counts  :=  0  ;  limit  :=  100  ; 
checknumber  (  answer,  x  1 ,  yl ,  1  irnit ,  counts  )  ; 

pfactor  :=  counts  ; 
gotoxy  (  2, 7)  ; 

write  (  ’  #•*  discordance  threshold  (q)  10  -  1001  : 
gotoxy  (  2, 6)  ; 

write  (’ (nb  ..  becomes  severe  as  it  approaches  100  ) 

XI  : =  70  ;  y 1  : =  8  ; 

counts  :=  0  ;  limit  :=  100  ; 

checknumber  (  answer, xl, yl, limit, counts  )  ; 

q fact or  :=  counts  ; 

if  (( specfi le2. pfactor  <>  0)  And 

(specfi le£. Pfactor  (pfactor) )  then 
pfactor  specfi le2. pfactor  ; 

If  (  (specfi  le£.  qfactor  <>  0  )  And 

(  specfi le2. Qfactor  >  qfactor  )  )  then 

qfactor  :=  specfi le£. qfactor  ; 

Window  (41,1,80,12)  ; 

text  background  (  white  ); 
text co lor  (  black  )  ; 

gotoxy  (  2,11  )  ; 


write  (’p  =  ’  ,  p  fact  or  :3:2,  ’  ’/.  q  =  ’,  q  fact  or 

if  norm. special i zed  Then 

begin 

specf i lec. pf actor  : ~  pf actor  ; 
specf  i  le£.  qfactor  :  =  qfactor  ; 
specf l le£. grading  : =  grading  ; 
ft  :  =  0  ; 
repeat 

a  :  =  a  +  1  ; 

until  (  narnex  =  norm.  UsersnarnesEal  )  ; 

specf i le£. Final  index  1  Cal  :=  true  ; 
writespecf i le  ? 
end  ; 

END  ; 


PROCEDURE  COMPUTE 1  ; 

BEGIN 

for  c  :=  1  to  numo  f cr  i  t  er  i  a  do 
b eg  i n 

if  (  grading  Ca, cl  >=  gradingCb, cl  )  then 
sum  :=  sum  +  critvalueCcl  ; 

end  ; 

if  (a  <>  b  )  then 

concordance  Ca,  bl  :=  sum  *  UZi<Zi 

else 

concordance Ca, bl  :=  1  ; 

END  ; 

PROCEDURE  COMPUTES  ; 

BEGIN 

for  c  :  =  1  to  nurnofcriteria  do 
beg  i  n 

if  (  gradingCb,  cl  >  qradirgCa,cl  )  then 

sum  : =  grading  Cb, c]  —  gradingCa,d  ; 
if  (  result  <=  sum  )  then 
result  :=  sum  ; 

end  ; 

if  (a  <>  b  )  then 

d i scordance Ca, bl  :=  result  /  critvaiueCll 
a  1  se 

d l scordance Ca, bl  :=  1  ; 

END  ; 


PROCEDURE  COMPUTECONC  ; 

BEGIN 

for  a  : =  1  to  numof a  1 1 ernat i ves  do 


«  ■*  «  ' *  »  *  »  *  •  ^ m  ■*  »  -  a  »  *  -  ’  «  "  *  ■**•**  *  *  .i  “  «  - 


*  *  '  -iC*  -l 


Pm  1  -JL.  I  -*|  ■  tA  ^  I  .  i 


149 


begin 

for  b  :=  1  to  nurnof a  1 1 ernat  i ves  d 
beg  i  n 

sum  :  =  ’Z>  ; 
computel  ; 
end  ; 
end  ; 

END  ; 


PROCEDURE  FINTINDEX 1  ; 

BEGIN 

for  a  :=  1  to  numof a 1 ternat i ves  do 
beg  in 

c  :  =  0  ; 

for  b  :=  1  to  numofalternat i ves  d 
begin 

if  concordance Ca, b3  > =  pfactor 
c  :  =  c  +  1  ; 
c i ndex Cal  : =  c  ; 
end  ; 
end  ; 
fl  :=  0  ; 

for  a  :=  1  to  numof alt ernat i ves  do 
fl  :=  fl  +  cindexCal  ; 

END  ; 


PROCEDURE  COMPUTED I SCONC  ; 

BEGIN 

for  a  :=  1  to  numofalternat i ves  do 
beg  in 

for  b  :=  1  to  numof a  1 1 ernat l ves  d 
beg  i  n 

sum  :=  0  ; 
result  :=  0  ; 
computes  ; 
end  ; 
end  ; 

END  ; 


PROCEDURE  FINTINDEX2  ; 

BEGIN 

for  a  s=  1  to  numofalternat i ves  do 
begin 

c  :  =  0  5 

for  b  :=  1  to  numof  a  1 1  ernat  i  ves  d< 
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got ok y  (  5  +  <  (b+1)  *  5)  ,  c  +  3  )  ; 

write  (  index  Cc]  )  ; 

end  ; 

text co lor  (  black  )  ; 

END  ; 


PROCEDUTE  CONFINT  ; 

BEGIN 

window  (  1,13,80,23)  ; 

t ext  background  <  14  )  ; 
text col or  (  blue  )  ; 

clrscr  ; 
gotoxy  (2,2)  ; 

write  ( ’  concordance  matrix  ’  )  ; 

cornout  econc  : 
fint index  1  ; 
textcolor  (  black  )  ; 

st 1  : =  ’ #c i ’  ; 

rnatrixcon  :=  concordance  ; 
index  :=  cindex  ; 

writealt  (  st  1  ,  rnatrixcon,  index  )  ; 


t  ext  co 

lo 

r  < 

b 1 ue  )  ; 

gotoxy 

( 

J>8  , 

£>  ; 

wn  ate 

(’ 

-** 

a  concordance  index  indicates  to  ’  )  ; 

gotoxy 

( 

u0  , 

3)  ; 

wr  i  t  e 

<’ 

what  extent  an  option  is  better  than  ’ )  ; 

gotoxy 

( 

jQ  , 

4)  ; 

wr  i  t  e 

<’ 

another  in  terms  of  criteria  weights  ’  >  ; 

gotoxy 

( 

33  , 

5)  ; 

write 

<’ 

the  index  varies  between  C  0  —  100  1  '  ) ; 

gotoxy 

< 

38, 

&  )  ; 

wr  i  t  e 

(’ 

the  higher'  the  better  .  ’  )  ; 

Gotoxy 

< 

38, 

7)  ; 

wr  i  t  e 

(’ 

,  f 1,  ’  indexes  are  >  =  ’ , round <pf actor)  ) 

gotoxy 

( 

38, 

3)  ; 

write 

<’ 

-** 

column  #c l  indicates  the  #  of  indexes  ’  ) 

gotoxy 

( 

8 , 

9  )  ; 

write 

<’ 

satisfying  p  for  each  option  ’  )  ; 

gotoxy 

( 

2,  10  )  ; 

write 

( 

’hit 

any  key  to  continue  ’  )  ; 

read  <  kbd, ch  )  ; 


1 


PROCEDURE  DISFINT 


BEGIN 

window  (  1,13,30,  £3)  ; 

t sxt background  <  14  ) ; 

clrscr  ; - 

text co Ion  (  blue  )  ; 

gotoxy  <  2,2)  ; 

write  (’discordance  matrix  ’  )  ; 

computed i scone  ; 

fintindex£  ; 
textcolor  (  black  )  ; 


st  1  :  =  ’  #d  i  ’  ; 

matrixcon  :=  discordance  ; 
index  : =  d index  ; 

wv'itsalt  (  st  l  .  matrixcon,  index  )  ; 

text color  v  blue  )  ; 

gotoxy  (  40, 3)  ; 

write  <’4*  a  discordance  index  indicates  to  ’  )  ; 

gotoxy  (  40,  3)  ; 

write  (’  what  extent  an  option  contains  a  bad  ’  ) 
gotoxy  (  40, 4)  ; 

write  (’  element  that  makes  it  un-sat isf act ory  ’ 

gotoxy  <  40,5)  ; 

write  (’**  the  index  varies  between  C  0  -  100  3  ’  ) 
gotoxy  (  40,6  )  ; 

write  (’  the  lower  the  better  -  ’  )  ; 

Gotoxy  (  40, 7)  ; 

write  (’  ’  ,  f£,  ’  indexes  are  (  =  ’ , qf actor : 3 : £  ) 

gotoxy  <  40,8)  ; 

write  (’■**  column  #ci  indicates  the  #  of  indexes  ’ 
gotoxy  (  40,  3  )  ; 

write  (’  satisfying  q  for  each  option  ’  )  ; 

gotoxy  <  £,10)  ; 

write  <  ’hit  any  key  to  continue  ’  )  ; 

read  (  kbd, ch  )  ; 

END  ; 


PROCEDURE  COMPUTEOUTRANKING  ; 
BEGIN 


for  a  : = 
beg  in 
for  b 
beg  i  n 
if  ( 


1  to  nurnof a  1 1 ernat i ves  do 

=  1  to  nurnof alternat  ives  do 

(  concordance Ca, bD  >=  pfactor  )  and 
(  discordanceCa, b]  <=  qfactor  ) 
outranking C a, b3  :=  ’ *’ 


the 


else 


outranking Ca, bl  •=  *-»  ; 

end  ; 
end  ; 

for  a  :=  1  to  nurnof alternat  1  ves  do 
outranking Ca,  a3  :=  ; 

END  ; 

PROCEDURE  OUTFINT  ; 

VAR 

ans  :  name  ; 

BEGIN 

window  (  1,13,30,  S3)  ; 

t ext  background  (  14  )  ; 
text co lor  (  blue  )  ; 

clrscr  ; 
gotoxy  (  2, 2)  ; 

write  (’outranking  matrix  ’  )  ; 

c  o  m  outs  o  u  tranki  n  g  ; 

t  s:<t co  1  or  (  b  1  ack  >  • 

for  a  :=  1  to  nurnofalt  ernat  ives  co 

beg  i n 

ans  :=  alterta]  ; 
delete  (  ans, 4, length <  ans)  )  ; 

gotoxy (  2, a  +  3)  ; 

wr i t  e  (  ans : 4  )  ; 

end  ; 

for  a  :=  1  to  nurnof  a  1 1  ernat  i  ves  do 
beg  i  n 

ans  :=  alterCaJ  ; 
delete  (  ans, 4, length (  ans)  )  ; 

gotoxy  <5+(a*5),3>; 
wr i t e  (  ans : 3  )  ; 

end  ; 

for  a  :=  1  to  nurnofalternat  ives  do 
begin 

for  b  :=  1  to  nurnofalternat  ives  do 
beg  i  n 

gotoxy  (  5  +  (  b  *  5)  ,  a  +  3  )  ; 

write  (outranking Ca, bJ  )  ; 

end  ; 
end  ; 

t  e x t  co 1  or  (  b 1 ue  )  ; 

gotoxy  (  33,2)  ; 

write  (’*■*  an  outranking  relation  *  is  the  ’ 
gotoxy  (  38, 3)  ; 

write  (’  one  that  satisfies  both  concordance 
gotoxy  (  33,4)  ; 

write  (’  and  discordance  requirements.  ’  )  ; 

Gotoxy  (  33,  5)  ; 


•V' 

$ 

wr  i  t  e  ( 

gotoxy 

write  < 

i 

Gotoxy 

write  ( 

read  ( 

END  ; 

no  outranking  relations.  ’  )  ; 


BEGIN  (*  main  *) 

window  (  1,1,40,12)  ; 

text  background  (  blue  )  ; 
clrscr  ; 

window  (41,1,80,12)  ; 

text  background  (  white  ); 
clrscr  ; 

*j  i r d o w  v  1 ,  .  w.  30,<^2)  ; 

baxt background  (  14  ) ; 

clrscr  ; 

window  (  1,24,80,25)  ; 

t ext  background  (  white  ); 
clrscr  ; 

text co lor  (  black  )  ; 

gotoxy  (  2,1)  ; 

write  (  ’step  4  :  evaluation  of  alternatives  ’  ) 

gotoxy (  2,2)  ; 

write  (  ’method  used  :  electre  ’  )  ; 

if  (  not  norm. Special i zed  )  then 
begin 

alter  :=  problem,  alternatives  ; 

nurnof a  1 1 ernat ives  :=  problem. numofal ternat ives 
criteria  :=  solution. normvect or  1  ; 

cr it value  : =  so lut ion. normvect or2  ; 
end 
e  1  se 
begin 

alter  :=  problem. alt ernat ives  ; 

numofal ternat ives  :=  problem. nurnof alt ernat ives 
criteria  :=  Specf i le£. normvect or 1  ; 

critvalue  :=  Specf i le2. normvectorS  ; 
end  ; 

wr itewoksheet  ; 
writegrading  ; 


gradealternat i ves  ; 
factors  ; 

if  norm. specialized  Then 
begin 

b  :  =  0  ; 

for  a  :=  1  to  3  do 
begin 

if  specfi le2. final indexl CaD  Then 
b  :  —  b  +  1  ; 

end  ; 

if  (  b  =  norm.  Nurnof  users  )  then 

specfi  lech  Electre.  Status  :=  true 

e  1  se 

specfi le2. Electre. Stat us  :=  false  ; 
end  ; 


. f  (  (  not  norm. Special i:3d  )  _r 

i  norm . 3  oec lal i zed  and  soecf i le£. Electre. Jtatuc 
then  begin 
repeat 

window  (  1,13,80,23)  ; 

text  background  (  14  )  ; 

c 1 rscr  ; 

textcolor (  black  )  ; 

gotoxy  (  2,2)  ; 

write  (  ’menu  ’  )  ; 

gotoxy (2, 4)  ; 

write  (  ’1.  Concordance  matrix  ’  )  ; 

gotoxy (2, 5)  ; 

write  <  ’2.  Discordance  matrix  ’  )  ; 

gotoxy  (  2,6)  ; 

write  (  ’3.  Outranking  matrix  ’  )  ; 

gotoxy  (  2,7)  ; 

write  <  ’4.  Modify  thresholds  ’  )  : 

gotoxy  (  2,3)  ; 

write  (  ’5.  Exit  electre  ’  )  ; 

gotoxy  (  2, 10)  ; 

write  <  ’selection  (1-5)  ?  ’  )  ; 

Repeat 

gotoxy (  30, 10) ; 
clreol  ; 

read  (  answer  )  ; 

until  ( (answer  =’ 1’ )  or  (answer  =  ’ 2’ )  or  (answer  = 
’3’  )  or  (answer  =  ’  4’  >  or  (answer  =  ’  5’  )  )  ; 

if  answer  =  ’1’  then 
confint  ; 

if  answer  =  ’2’  then 
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f  i  lnamel , xx, pruserl  :  names  ; 
altvector6  :  array  Cl.. SI  of  vectorf  ; 
alt  names  :  array  Cl.  .61  of  tit  lei  ; 
usarsnarnes  :  narne£  ; 
answers. userx  :  names  ; 
br£, altvectorS, ar£,  ar3  :  vectorf  ; 
altnamesS  :  tit  lei  ; 

br 1 , ord i nal 1 , arl, ar4, ind i vidua 1 ord i nal 1 , 

ind ividual vector 1  :  ordinals  ; 

ord i na 1 ,  individual ord i na 1 ,  individual vect  or 

resultxl, result xS  :  real  ; 

weight  :  vectorsl  ; 

ch  :  char  ; 

indexrn  :  arrayC1..9D  Of  char  ; 


PROCEDURE  COMPUTE 1  ; 

BEGIN 

for  b  i=  1  to  nurnofalternat  i  ves  do 
bag  i n 

suma  :=  0; 

for  c  :=  1.  to  nurnof users  do 
beg  i  n 

ordinal  1  :=  ordinalCcl  ; 

suma  :=  suma  +  ordinallCbl  ; 
end  5 

arl Cbl  :=  suma  ; 
and  ; 

for  a  :=  1  to  nurnofalternat  i  ves  d.: 
begin 

gotoxy  (  S, a+5  )  ; 

write  <  arl Cal  ) ; 
end  ; 

END  ; 


PROCEDURE  COMPUTES  ; 

BEGIN 

for  b  :=  1  to  nurnofalternat  ives  do 
beg  in 

resultxl  :=  0; 

for  c  :=  1  to  nurnof  users  do 

begin 

altvectorS  :=  altvectorS Cel  ; 
resultxl  :=  resultxl  +  a  1 1 vect orS Cbl  ; 
end  ; 

arSCbl  :=  (  resultxl  /  nurnofusers  )  ; 

end  ; 


-  :  ord i na 1 


for  a 


1  to  nurnofalternat ives  do 


begin 

gotoxy  (12,a+5  )  ; 

write  (  ar2Cal:3:2  ); 
end  ; 

END  ; 


PROCEDURE  C0MPUTE3  ; 

BEGIN 

for  b  :=  1  to  nurnofalternat ives  do 
begin 

result  x 1  : =  1 ; 

for  c  :=  1  to  numof users  do 

be  gin 

alt vectors  :=  altvectcrfitc]  ; 
result xl  :=  result xl  *  a  It vectors Cbl  ; 
end  ; 

resultx2  :=  In  (  result xl  >  ; 

ar3  Cb3  :=  exo  (  ‘  1  /  numof  us  ars  )  +  resui  t  :<2 

an  d  s 

for  a  :=  1  to  nurnofalternat  i ves  do 
beg  in 

gotoxy  (  lQ,a+5  )  ; 

write  <  ar3Ca3:3:2  ); 
end  ; 

END  ; 


PROCEDURE  C0MPUTE4  ; 

BEGIN 

for  b  :=  1  to  nurnofalternat ives  do 


begin 

suma  :=  0; 

for  c  :=  1  to  nurnof users  do 
beg  i  n 

ordinal  1  :=  ordinalCc]  ; 

suma  :  =  suma  +<  nurnofalternat  ives 


end  ; 

ar4 Cbl 
end  ; 
for  a  : = 
beg  i  n 
got  oxy 
wr  i  t  e 
end  ; 

END  ; 


:=  suma  ; 


1  to  nurnofalternat  ives  do 

(  24,  a+5  )  ; 

ar4 Cal  )  ; 


ord i na 1 1 Cbl 


PROCEDURE  COMPUTEORDINPL  ; 

BEGIN 

for  b  :=  1  to  numof a  1 1 ernat i ves  do 
beg  in 

suma  :=  1  ; 

for  c  :=  1  to  (  nurnof  a  1 1  ernat  i  ves  )  do 
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if  a  1 1 vect orQ Cbl  <  alt vectors Cc3  then 
3 uma  :=  suma  +  1  ; 

end  ; 

ordinallCb3  :=  suraa  ; 
end  ; 

END  ; 

PROCEDURE  COMPUTE INDIV I DUflLVECTOR  ; 

BEGIN 

for  al  :=  1  to  nurnof a  1 1 ernat  i ves  do 
begin 

surna  :=  0  ; 

for  bl  :=  1  to  nurnof  alt  ernat  i  ves  do 
beg  in 

if  (  sol ut ion.  Elect re. Outranking  Cal , bl 1  = 
suma  :=  sum a  +  1  ; 

and  ; 

i  rid  i  v i  d ua  1  vector  1  Cal  J  SLirna  ; 

end  ; 

END  ; 

PROCEDURE  COMPUTEX 1  ; 

BEGIN 

for  a  :=  1  to  numofalternat i ves  do 
begin 

surna  :  =  0  ; 

for  b  :=  1  to  nurnof  users  do 
beg  in 

ind ividual vector  1  :=  ind i vidual vector Cb3  : 

surna  :=  surna  +  i nd  iv i dua  1  vector  1  Cal  ; 
end  ; 

gotoxy  (  9, 5+a  )  ; 

write  <  surna  )  ; 

end  ; 

END  ; 

PROCEDURE  COMPUTE XE  ; 

BEGIN 

for  a  :=  1  to  nurnof  a  1 1  ernat  i  ves  do 
beg  i  n 

surna  :  =  tZ>  ; 

for  b  :=  1  to  nurnof  users  do 
begin 

i nd ivi dua lord i na 1 1  :=  ind i v i dua lord inal Cbl 

suma  :=  surna  +  i  nd  i  v i dua  1  ord  ina  1  1  C a]  ; 
end  ; 

gotoxy  (15, 5+a  )  ; 

write  <  surna  )  ; 

end  ; 

END  ; 


PROCEDURE  MINI  ; 

BEGIN 

if  norm. Broadcasting  then 
beg  i  n 

fern  a  :=  1  to  nurnof users  do 
begin 

got ox y  (  6  -*  a  ,  4  )  ; 

write  (  usersnarnes  Cal  :  4  )  ; 


end 


gotoxy  (2,5)  ; 

textcolor  (red  )  ; 

wr i t  e  (  ’ we i g.  :  ’  )  ; 

For  a  :=  1  to  nurnof  users  do 
begin 

gotoxy  <  (6*a)+2, 5)  ; 

write  (  we i ght Cal  :  3 : 2  )  ; 

end  ; 

textcolor  (  blue  )  ; 


a  :  = 


nurnof  a  1 1  ernaf  l  ves  c  o 


begin 

gotoxy  (  2,a+5  )  ; 

write  (  copy  ( a  1 1  narnesS  Cal ,  1 , 3)  ); 

end  ; 

for  a  :=  1  to  nurnof  users  do 
begin 

alt  vectors  :=  a  1 1 vectors  Cal  ; 

for  b  :=  1  to  nurnof  a  1 1  ernat  i  ves  d 

begin 

gotoxy  (  (6  *  a) +2  ,  b  +  5  )  ; 

write  (  al  t  vectors  C'o3  :  3 : 2  )  ; 

end  ; 
end  ; 
end 
e  1  se 
begin 

for  a  :=  t  to  nurnof  users  do 
begin 

if  (  pruserl  =  usersnarnes  CaJ  )  the 
beg  i  n 

gotoxy  (  &  ,  4  )  ; 

write  (  usersnarnes  CaJ  :  4  )  ; 

xxx  : =  a  ; 
end  ; 
end  ; 

for  a  :=  1  to  nurnof  a  1 1  ernat  i  ves  do 

beg  i  n 

gotoxy  (  2, a+5  )  ; 

write  (copy (  a  1 1 namesS Cal ,  1 , 3 )  ); 

end  ; 

alt vectors  :=  a  1 1 vect or& C x x x 1  ; 

for  b  :=  1  to  nurnof  a  1 1  ernat  i  ves  do 
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b  +  5  > 


begin 

got  oxy  (  Q 

write  (  al tvector3 Cbl : 3 : 2  >  ; 

and  ; 
and  ; 

END  ; 

PROCEDURE  WINE  ; 

BEGIN 

window  (26,1,50,16  )  ; 

t ext  background  (  14  )  ; 

clrscr  ; 

text co lor  (  black  )  ; 

gotoxy  (  2, 2  )  ; 

write  (  ’  ordinal  ranking  ’  )  ; 

if  norm. Broadcast i nq  then 
bag n 

f:r  a  : —  1  to  numo fusers  do 
b  a  g  i  n 

gotoxy  (<  6 *a)-2  , -+)  ; 

write  (  usersnames Cal : 4  )  ; 

end  ; 
end 
e  1  se 
begin 

gotoxy  <  6,4)  ; 

write  (  usersnames C x x x 1  )  ; 

and  ; 

for  a  :=  1  to  numof users  do 
beg  i  n 

alt  vector Q  :=  altvectorGCal  ; 
for  b  :=  1  to  numof a 1 1 ernat i ves  do 
beg  i  n 

sum a  :=  1  ; 

for  c  :=  1  to  (  numof a I t ernat i ves  )  do 
beg  i  n 

if  altvector8[b]  <  altvectorflCcl  then 
surna  :=  suma  +  1  ; 

and  ; 

ordinal  1 Cb3  :=  suma  ; 
end  ; 

ordinal  Cal  :=  ordinal  1  ; 

and  ; 

if  norm. Broadcast i ng  then 
begin 

for  a  :=  1  to  numof users  do 
beg  i  n 

ordinal  1  :=  ordinal  Cal  ; 

for  b  :=  1  to  numo  fa  1 1  ernat  i  ves  do* 

beg  i  n 
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got  ox y  (  S  *  a  ,  b  +  5  )  ; 

write  (  ordinal  1 CbD  )  ; 

end  ; 
end  ; 

and 

el  se 
beg  i  n 

ordinall  :=  ordinal CxxxD  ; 

for  b  :=  1  to  nurnofalternat  ives  do 

beg  i  n 

gotoxy  (6  ,  b  +  5  )  ; 

write  (  ordinallCbl  )  ; 

end  ; 
end  ; 

END  ; 

PROCEDURE  W I N3  ; 

BEGIN 

window  ( d 1 ,  1 , 3  ,  1  £  )  : 

i ext  background  (  white  5 
c 1 rscr  ; 

textcolor  (  black  )  ; 

gotoxy  (  1,2  )  ; 

write  (  ’  group  results  ’  )  ; 

for  a  :=  1  to  4  do 

beg  l  n 

got oxy  ( <  &*a ) , 4 )  ; 

write  <  ’ r ’ , a  )  ; 

end  ; 

for  a  :=  1  to  numofal ternat ives  do 
beg  i  n 

gotoxy  <  2, a+5  )  ; 

write  (  copy  ( a  1 1 narnesb  Cal  ,  1 , 3 )  ) 

and  : 

if  norm. flgregat ion  then 
beg  i  n 

computer!  ; 
computers  ; 
computers  ; 
computer 4  ; 
end 
a  1  se 
begin 

f  1  :  =  0  ; 

repeat 

fl  :  =  f  1  +  1  ; 

case  norm,  flgregat  ionnarne  If  1  ] 


’  2’  : 

cornput er2 

’  1’  : 

comput er 1 

’  4’  : 

cornput  er4 

’ :  computers  ; 

end  ; 

unt i 1  (  f  1  >  =  4  )  5 

end  ; 

END  ; 


PROCEDURE  WIN4  ; 

BEGIN 

if  norm. Broadcast ing  then 
beg  i  n 

for  a  :=  1  to  numof users  do 
beg  i  n 

gotoxy  (  £  *  a  ,  4  )  ; 

write  <  usersnawesCa] :4  )  5 

enc  ; 

*or  a  :  =  t  to  nurno r'a  1 1 srnat  i  ves  do 
beg  i  n 

gotoxy  <  2, a+5  )  ; 

delete  (  altnarnesS  Cal  ,  4  ,  length  (altnamesB Cal 

write  <  altnarnesfeCal  >; 
end  ; 

for  a  :=  1  to  numof users  do 
beg  in 

individualvector  1  :=  ind  ividual  vector  Call  ; 

for  b  :=  1  to  nurno f a  1  ternat  i ves  do 
beg  i  n 

gotoxy  (  (S  *  a) +2  ,  b  +  5  )  ; 

write  ( i nd i v idua 1 vector  1 Cb 3  )  ; 

end  ; 
end  ; 
end 
a  1  se 
beq  i  n 

for  a  :  =  i  to  nurno  fusers  do 
beg  1  n 

if  (  pruserl  —  usersnames Cal  )  then 
beg  i  n 

gotoxy  (6  ,  4  )  ; 

write  (  usersnames Cal : 4  )  ; 

xxx  : -  a  ; 
end  ; 
end  ; 

for  a  :=  1  to  numof al ternat i ves  do 
beg  i  n 

gotoxy  (  £, a+5  )  ; 

write  (  altnamesSCal  ) ; 
end  ; 

i nd ividual vector  1  :=  ind ividual vector C xxx 1  ; 


for  b  :=  1  to  numofalternat ives  do 
begin 

gotoxy  (6  ,  b  +  5  )  ; 

write  (  ind i vidua 1 vector 1 Cbl  )  ; 

end  ; 
end  ; 

END  ; 


PROCEDURE  WIN5  ; 

BEGIN 

window  (£'6,1,50,16  )  ; 

text  background  (  14  )  ; 

clrscr  ; 

t  e  x  t  co 1 or  (  black  )  * 

g  o  b  o  x  y  (  £ ,  £  )  ; 

write  (  ’  ordinal  rank  ink  '  )  ; 

if  norm. Broadcast ing  then 
beg  i  n 

for  a  :=  1  to  nurnof  users  do 
begin 

gotoxy  (  6*a  ,4)  ; 

delete  (  usersnarnesEa]  ,  4  ,  length  (usersnamesEa]  )  )  ; 

write  (  usersnames Cal  ) ; 
end  ; 
end 
else 
begin 

gotoxy  (  6, 4)  ; 

delete ( usersnames Cxx xl ,  4  ,  length  ( usersnames  [  xxx ] )  )  ; 

write  <  usersnarnesCxxxl  )  ; 
end  ; 

for  a  :  =  1  to  nurnof  users  do 
beg  i  n 

individual  vector 1  :=  i nd iv idual vector Ca3  ; 

for  b  :=  1  to  nurnof alternat  ives  do 
beg  i  n 

surna  :=  1  ; 

for  c  s—  1  to  (  nurnof  alternat  ives  )  do 
beg  i  n 

if  i nd i v i dua 1 vect or  1 C bl  <  mdividualvectorl Ec]  then 
surna  :=  surna  +  1  ; 

end  ; 

i  nd  i  vidua  lord  i  na  1 1  C  b]  :=  surna  ; 
end  ; 

i nd i vi dua lord i na 1  Cal  :=  ind ividual ordinal  1  ; 
end  ; 

if  norm. Broadcasting  then 


for  a  :=  1  to  nurnofusers  do 
beg  i  n 

i nd i vidua  lord i nail  :=  i nd i v i dual ord i na 1  Cal 
for  b  :=  1  to  numofalternat ives  do 
beg  i  n 

gotoxy  <  6  *  a  ,  b  +  5  )  ; 

write  (  ind i vidua  lord inal 1 Cbl  )  ; 

end  ; 
end  ; 
end 
e  1  se 
beg  in 

i nd i v i dual ord i na 1 1  :=  i nd i v i dua 1 ord i nal C x xx 1 

for  b  :=  1  to  numofal ternat i ves  do 
begin 

gotoxy  (  6  ,  b  •-  5  )  : 

wr  i -5 e  <  ind  i  v  i dua i ord  ina  1 1  Hb  j  )  ; 

end  ; 
end  ; 

END  ; 


PROCEDURE  UIIN6  ; 

BEGIN 

window  (51,1,80,16  )  ; 

t ext  background  (  white  >  ; 

clrscr  ; 

text co lor  <  black  )  ; 

gotoxy  (  1,2  )  ; 

write  <  ’  group  results  ’  )  ; 

gotoxy  (3,4)  ; 

wr i t  e  (  ’ r4’  )  ; 

gotoxy  (  15, 4)  ; 

wr i t  e  (  ’ r 1 ’  )  ; 

for  a  :=  1  to  numofalternat ives  do 
beg  l  n 

gotoxy  (  2, a+5  )  ; 

write  (  copy  (altnamesfeCal , 1 , 3)  ); 

end  ; 

if  norm. Agregat ion  then 
beg  i  n 

cornputexl  5 
computexS  ; 
end 
else 
beg  i  n 

for  fl  :=  1  to  4  do 
beg  i  n 

case  norm,  figregat 1 onname [ f 1 ] 


of 


’  1’  :  compi.it ex  1  ; 

1 4’ :  cowputexS  ; 

end  ; 
end  ; 
end  ; 

END  ; 


PROCEDURE  WIN7  ; 

BEGIN 

gotoxy  <  £, £  )  ; 

write  (  ’  ordinal  ranking  ’  )  ; 

if  norm. Broadcast ing  then 
beg  in 

for  a  :=  1  to  nutnof users  do 
begin 

gotoxy  (S*a)+£,  4)  ; 

wr i t  e  C  ropy ( usersnamss C a 2  ,  1 . 3 )  ) 

end  ; 

for  a  :=  1  to  numofaltarnat ivss  do 
begin 

gotoxy  (  £, a+5  )  ; 

write  (  copy  (altnarnesS  Ca3  ,  1 , 3)  ) 

end  ; 
end 
else 
beg  i  n 

gotoxy  <  6,  4)  ; 

write  <  usersnames C x x x 1  )  ; 

end  ; 

if  norm. Broadcast ing  then 
beg  i  n 

for  a  :=  1  to  numo fusers  do 
begin 

ordinal!  :=  ordinal [a]  ; 

for  b  :=  1  to  numofaltarnat ives  d 

beg  i  n 

gotoxy  (  (6  *  a)+£  ,  b  +  5  )  ; 

write  (  ordinallCbl  )  : 

end  ; 
end  ; 
end 
else 
beg  i  n 

ordinal  1  :=  ordinal Cxxxl  ; 

for  b  :=  1  to  numofalternat ives  do 

begin 

gotoxy  (  &  ,  b  +  5  )  ; 

end  ; 

END  ; 
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PROCEDURE  WINS  ; 

BEGIN 

window  (51,1,80,  IS  )  ; 

i  ext  background  (  white  >  ; 

clrscr  ; 

textcolon  (  black  )  ; 

got oxy  (  1,£  )  ; 

write  (  '  group  results  ’  )  ; 

for  a  :=  1  to  4  do 

begin 

gotoxy  (  S*a  ,  4 )  ; 

wr i t  e  (  ’ r ’  , a  )  ; 

end  ; 

for  a  :=  1  to  nurnof al ternat  i  ves  do 
beg  in 

gotoxy  (  2, a+5  )  ; 

write  (  copy  (alt harness C a J  ,  1,3)  )  ; 

end  ; 

if  norm. figregat ion  then 
beg  i  n 

computer 1  ; 
computerA  ; 
end 
else 
beg  in 

for  fl  :=  1  to  4  do 
begin 

case  norm,  figregat  i onnarne C f  1 1  of 

’  1’  :  computer  1  ; 

’ 4’ :  computer 4  ; 

end  ; 
end  ; 
end  ; 

END  ; 

PROCEDURE  WIND0W1  ; 

BEGIN 

window  (1,  17,80,23  )  ; 

t ext  background  (  blue  )  ; 

clrscr  ; 

text co lor  <  white  )  ; 

gotoxy  (2,2)  ; 

write  (  ’  rl  :  sum  of  ranks  ’  )  ; 

gotoxy  (2, 3)  ; 

write  (  ’ r2  :  additive  ranking  ’  )  ; 

gotoxy  (  40,2)  ; 

write  (  ’ r3  :  mult ipl icat ive  ranking  ’  )  ; 

gotoxy  (  40, 3)  ; 

write  (  ’ r4  :  sum  of  outranking  relations  ’  )  ; 

gotoxy  (2,5)  ; 


1S8 


'  J-  '  J  . 


y  f 


text co lor  (  red  )  ; 

write  <  ’hit  any  key  to  continue  ’  >  ; 

read  (  kbd  ,  ch  )  ; 

END  ? 


BEGIN  (*  MAIN  *) 

pruserl  :=  narnex  ; 

numofalternat  ives  :=  problerna.  Nurnof a  1 1 ernat  ives  ; 
numof users  :=  norm. Nurnof users  ; 
usersnames  2  =  norm.  Usersnames  ; 
weight  :=  norm.  Weight  ; 

altvector6Ca]  :=  sol ut ion. Ahp. flit vector 1  ; 

altnamesE  :=  solution. Alternatives  ; 
b  :  =  0  ; 

for  a  :=  1  to  numof users  do 
beg  i  n 

userx  :=  norm. Usersnames Ca3 : 

filnamel  :=  cone  at  (  problname,  ’  .  ’  .Userx  )  ; 

if  exist  (  filnamel  )  then 
b  :  =  b  +  1  ; 

end  ; 

count ahp  :=  0  ; 
count elect re  :=  0  ; 

if  b  <  nurnof  users  then 
begin 

clrscr  ; 

writeln  (  ’the  solutions  are  not  completed  ’  ) 

end  ; 

if  b  =  numof users  then 
beg  in 

for  a  :=  1  to  numof users  do 
beg  i  n 

userx  :=  usersnarnesCa]  ; 

filnamel  concat  (  problname, ’ . ’ , Userx  )  : 

pruser  :=  filnamel  ; 
if  exist  (  pruser  )  then 
beg  i  n 

readsol ut ionf i 1 e  ; 

if  (  solut ion.  Ahp.  Status  )  then 

beg  i  n 

countahp  :=  count ahp  +  1  ; 

altvectorSCal  :=  solution. Ahp. Altvectorl  ; 
altnamesS  :=  sol ut i on. a  1 1 ernat i ves  ; 
AltvectorQ  :=  altvector6Ca3  ; 
end  ; 

if  (  sol ut ion.  Elect re. St at  us  )  then 
beg  i  n 


count elect re  :=  count elect  re  +  1  ; 

compute individual vect  or  ; 

i nd i v idua 1 vector  Cal  :=  ind i v i dua 1 vect or  1  ; 

altnamesS  : =  solut ion. Alternat ives  ; 
end  ; 
end  ; 
end  ; 

if  countahp  =  nurnof users  then 
beg  i  n 

for  a  :=  1  to  nurnof  users  do 
beg  i  n 

altvectorS  :=  altvectorSCal  ; 

for  b  :=  1  to  nurnof alternat  ives  do 

altvectorS Cbl  :=  alt  vectors Cb3  *  weight Ca3 
altvector6Ca3  :=  altvectorS  ; 
end  ; 

window  Cl,  1,25,  13  )  : 

text backgrouna  C  14)  j 
olrscr  5 

window  (26, 1, 50, IS  )  ; 

text  background  (  14  )  ; 

clrscr  ; 

window  (51,1,80,16  )  ; 

text  background  (  white  )  ; 

clrscr  ; 

window  <1,17,80,23  )  ; 

text  background  (  blue  )  ; 

clrscr  ; 

window  <1,24,80,25  )  ; 

text  background  (white  )  ; 

clrscr  ; 

text col  or  <  black  )  ; 

got  oxy  <  2,1)  ; 

write  (  ’  step  5  :  computation  of  group  decision 
gotoxy  <  2, 2)  ; 

write  (’all  the  solutions  have  computed  with  ahp 
window  (1,1,25,16  )  ; 

t ext  background  (  14  )  ; 

t e x t co 1 or  (  blue  )  ; 

clrscr  ; 

gotoxy  <  1,2  )  ; 

write  (  ’  alt.  Cardinal  rankings  ’  )  ; 

winl  ; 
win2  ; 
w  i  n3  ; 
windowl  ; 
end  ; 
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numo fusers  then 


if  countelectre  = 
beg  in 

for  a  :=  1  to  numof users  do 
beg  i  n 

alt vectors  :=  alt vectors  Cal  ; 

for  b  :=  1  to  numofalternatives  do 

altvectorS Cbl  :=  altvectorSCbD  *  weight Cal  ; 
altvector6Cal  :=  altvector8  ; 
end  ; 

window  <1,1,25,16  )  ; 

text  background  <  14  >  ; 

clrscr  ; 

window  (26,  1,50,  16  )  ; 

text  background  <  14  >  ; 

clrscr  ; 

window  (51,  1,30,  16  )  : 

text  background  (  white  )  $ 

clrscr  ; 

window  <1,17,80,23  )  ; 

text background  (  blue  )  ; 

c 1 rscr  ; 

window  (1,24,80,25  )  ; 

t ext  background  (  white  )  ; 

clrscr  ; 

text co lor  (black  )  ; 

gotoxy  (  2,1)  ; 

write  <  1  step  5  :  computation  of  group  decision  ’ 
gotoxy  (2,2)  ; 

write  (’all  the  solutions  have  computed  with  slectr 
window  <1,1,25,16  )  : 

t ext  background  (  14  )  ; 

text co lor  (  blue  )  ; 

clrscr  ; 

gotoxy  (  1,2  )  ; 

write  (  ’  alt.  Individual  rankings  ’  )  ; 

win4  ; 
win5  ; 
w  i  n6  ; 
windowl  ; 
end  ; 


count  12 
for  a  :  = 
begin 
userx 


=  0  ; 

1  to  numof users  do 


filnamel  :=  concat  (  problnante,  '  .  ’  ,  Userx  )  ; 

pruser  :=  filnamel  ; 

readsolutionfile  ; 

if  solut ion. Ahp.  Status  then 

beg  i  n 

i ndexrn Cal  :  =  ’  a’  ; 
count  12  :=  count  12  +  1  ; 

end 
else 
beg  i  n 

if  sol ut ion. Elect re. Status  then 
begin 

indexraCal  :=  ’ e’  ; 
count  12  :=  count  12  +1  ; 

end 
else 

.i  ndexrn  Cal  :=  ’  n’  ; 
end  ; 
and  ; 

if  count  12  <  nurnof user's  then 
begin 

window  (  1,  1,80,25)  ; 

textcolor  <  14  )  ; 

clrscr  ; 
gotoxy  (  2, 3)  ; 

textcolor  <  blue  )  ; 

write  (’the  solutions  are  not  completed  ’); 
gotoxy  (  2,4)  ; 

write  (  1  hit  any  key  to  return  to  main  menu  1 
read  (  kbd, ch  )  ; 

goto  telosl  ; 
end 
el  se 
beg  i  n 

for  a:=  1  to  nurnof  users  do 
beg  i  n 

if  indexrnCa]  =  ’a’  then 
beg  i  n 

alt vectors  al t vectors  Cal  ; 

for  b  :=  1  to  numofalternat ives  do 

begin 

surna  :=  1  ; 

for  c  :=  1  to  (  numofalternat ives  )  do 

begin 

if  al t vector© C bl  <  altvectorS Cel  then 
surna  :=  suma  +  1  ; 

end  ; 

ordinal lCbl  :=  suma  ; 
end  ; 

ordinal  Cal  :=  ordinal  1  ; 


eg  1  n 

individual  vector 1  :=  individual  vector  Cal  : 

for  b  :=  1  to  nurnofalternat  i ves  do 
begin 

surna  : =  1  ; 

for  c  :=  1  to  (  nurnofalternat i ves  )  do 
beg  in 

if  individual vectorl Cbl  < 
individualvectorl Cel  then 
surna  :=  surna  +  1  ; 

end  ; 

individualordinal 1 Cbl  :=  surna  ; 
end  ; 

ordinalCal  :=  indi vidualordinal 1  : 

end  ; 
end  ; 

window  (1,1,25,  IS  )  ; 

t ext  background  (  14  )  ; 

clrscr  ; 

window  (26,  1,50,  IS  )  ; 

text  background  (  14  )  ; 

clrscr  ; 

window  (51,1,80,  IS  )  ; 

text  background  (  white  )  ; 

clrscr  ; 

window  (1,17,80,23  )  ; 

text  background  <  blue  )  ; 

clrscr  ; 

window  (1,24,80,25  )  ; 

text  background  (  white  )  ; 

clrscr  ; 

text co lor  (  black  )  ; 

gotoxy  (  2,1)  ; 

write  (’step  5  :  computation  of  group  decision 
gotoxy  (  2,2)  ; 

write (’the  solutions  have  computed  with  electre 
ahp  ’  )  ; 

window  (1,1, 25, IS)  ; 
text  background  (  14  )  ; 

text co lor  (  blue  )  ; 

clrscr  ; 

win7 ; 
win8  ; 
windowl  ; 
end  ; 

window  (1,1,80,25)  : 


1 


telosl : 

end 
END  ; 

INCLUDE  FILE  DIRLIST1 


PROCEDURE  DIRLIST  ; 

TYPE 

CharlSarr  =  array  C  1. . IS  3  of  Char; 
StringS®  =  stringC  £0  3; 

RegRec  =  record 

AX,  BX,  CX, DX, BP, SI, 

D I , DS, ES, F 1 ags  :  Integer; 

end  ; 

VAR 

Regs  :  RegRec; 

DTA  :  array  C  1 . . 43  3  of  Byte; 

Mask  :  CharlSarr; 

NamR  :  String20; 

Error, I  :  Integer; 


BEGIN 

FillChar (DTA, SizeOf (DTA) , 0) ;  <  Initialize  the  DTA 

buffer! 

Fi 1 IChar (Mask, Si zeOf (Mask) , 0) ;  <  Initialize  the  mask  > 

F  i  1 1  Char  ( NamR.  3  i  zeOf  ( NamR)  .  0 )  :  -C  Initialize  the  file 


Wr i t  eLn ; 

WRITELN; 

Regs. AX  :=  $1A00; 

Regs. DS  :=  Seg(DTA); 

Regs. DX  : -  Ofs (DTA) ; 

MSDos ( Regs ) ; 

Error  : =  0 ; 

Mask  :=  ’  GN?’  ; 

Regs. AX  :=  $4E00 ; 

Regs. DS  :  =  Seg(Mask); 
Regs. DX  :=  Qfs(Mask); 
Regs. CX  : =  ££ ; 

MSDos ( Regs) ; 

Error  :=  Regs. AX  and  $FF ; 


narne> 


-C  Function  used  to  set  the  DTA 
-C  store  the  parameter  segment  i 
DS  > 

■C  offset  in  DX  > 

■C  Set  DTA  location  > 

<  Use  global  search  > 

<  Get  first  directory  entry  > 
■C  Point  to  the  file  Mask  > 

■C  Store  the  option  > 

•C  Execute  MSDos  call  > 

■C  Get  Error  return  > 


I 


1 


the  first 


:=  1 


■C  initialise  ’  I  ’  to 
element  > 


if  (Error  =  0)  then 
repeat 

MarnR  C 1 3  :=  Chr  (Mem  CSeg  (DTO)  :  Of  s  (DTO)  +29+1 3  )  ; 

I  :=  I  +  1 ; 

until  not  (NamR C 1-13  in  C’  ’  .  .  ’ 3  )  or  (I>£0); 


NamRC03  :=  Chr(I-l); 


while  (Error  =  0)  do 
begin 

Error  : =  0 ; 

Regs. OX  :=  $4F00; 


■C  set  string  length  because 
assigning  > 

■C  by  element  does  not 
set  length} 


■C  Function  used  tc  get 
•ext  > 

directory  art  rv  j- 


S  e  t  the  file  rot 


-C  Call  MSDos  > 

■C  get  the  Error  return  > 


Regs. CX  : =  £2 ; 

MSDos  (  Regs  ); 

Error  : =  Regs. OX  and  $FF ; 

I  l; 
repeat 

NamR  L I  3  :=  Chr < Mem CSeg ( DTP)  : Of s ( DTO) +£9+ 1  3 )  ; 

I  :  =  I  +  1  ; 

until  not  (NamR C 1-13  in  C’  ’  .  .  ’  'v’  3  )  or  (I  >  £0)  ; 

NamR  C03  :=  Chr(I-l); 

if  (Error  =  0)  THEN 


WriteLn (  1 


NamR) 


end 

END  ; 


INCLUDE  FILE  FILES 


PROCEDURE  QPENFILE  (  var  prname  :  name  )  ; 


BEGIN 

assign  (  problernfile  ,  prname  )  ; 

rewrite  (  problernfile  )  ; 

with  problerna  do 
beg  in 

narnel  :=  prname  ; 
numof a  1 1 ernat ives  :=  0  ; 
nurnof  users  :=  0  ; 
levels  :=  0  ; 


f i 1 lchar  ( level  1 , si zeof  < level  1 )  ,  ft)  ; 
f i 1 1 char  (1  eve 1 2,  s i zeof ( 1 evel 2 ) , 0)  ; 
f i 1 lchar  ( leve 1 3, s i zeof ( 1 eve  13)  ,  0)  ; 
f i 1 lchar  ( lsvel4, si zeof ( 1 evel 4 )  ,  9)  ; 
f i 1 lchar  (  levels, si zeof ( leveiS) , 0)  ; 
fi 1 lchar  ( levels, si zeof ( level S) , 0) ; 
fi 1 lchar  ( leve 17, si zeof ( level?) , 0) ; 
f i 1 lchar  < sub 1 eve  1 1 ,  si zeof ( sub 1 eve  1 1 )  ,  0)  ; 
f i 1 lchar  < sub 1 eve 12, s i zeof  < sub 1 evel 2)  ,  0)  ; 
f i 1 lchar  (alternat i ves, si zeof (alternat ives)  ,  0)  ; 
end  ; 

write  (  problernfile  ,  problems  )  ; 

close  (  problernfile  )  ; 

END  ; 

PROCEDURE  DPENSQLUT I ONF I LE  (  var  pruser  :  name  )  ; 

BEGIN 

assign  (  sol  ut  lonfi  le,  pruser  ; 
r'awnte  (  solutionfile  )  ; 

with  so 1 ut i ona  d o 
beg  in 

ahp.  Nurnoftries  :=  0  ; 
elect  re.  Nurnoftries  :=  0  ; 
nurnof alternat  ives  :=  0  ; 
nuwofcriteria  :=  0  ; 

f i 1 1  char  < ah p. A1 1 vector  1 , s i zeof (ahp. Pit  vect or  1 ) , 0  > 
username  :=  ’  '  ; 
userid  : =  1  ’  ; 

f i 1 1 char ( a lternat i ves, s i zeof (alt ernat i ves )  ,  0 )  : 

fi  1  lchar  <  norm  vect  or  1 ,  si  zeof  ( nor  rn  vect  or  1 )  ,  0)  ; 

elect  re. St  at  us  :=  false  ; 
fill  char ( e 1 ect  re. Out  rank i ng , 

s i zeof ( e 1 ect  re. Out  rank i ng ) , 0 )  ; 

end  : 

write  (  solutionfile  ,  solutions  )  ; 

close  (  solutionfile  )  ; 

END  ; 

-'ROCEDURE  QPENNORMF I LS  (  var  normname  :  name  )  ; 

BEGIN 

assign  (  normfile  ,  normname  )  ; 

rewrite  (  normfile  >  ; 

with  norma  do 
beg  i  n 

numof users  :=  0  ; 
mod i f y t i mes  : —  0  ; 

1 ast  t i me  : =  0  ; 

agregation  false  ; 


176 


nai  :=  false  ; 

specialized  :=  false  ; 

broadcasting  :=  false  ; 

modify  :=  false  : 

f i 1 Ichar  ( usersnames, si zeof  < usersnames) , 0)  ; 
fi 1 Ichar  (specindex, sizeof (specindex) , 0) ; 
fill char  ( users i ds, s i zeof ( users l ds ) , 0 ) ; 
fillchar  (weight  , si zeof ( wei ght ) , 0)  ; 

fillchar  (currentnarae, sizeof (currentname)  ,  0)  ; 
f  i  1  Ichar  (agregat  ionnarne,  si  zeof  (agregat  ionnarne)  ,  0) 
end  ; 

write  (  normfile  , norma  )  ; 

close  (  normfile  )  ; 

END  ; 

PROCEDURE  OPENSPECFILE  (  var  pruserS  :  name  )  ; 

BEGIN 

assign  (  soecf i 1 e, pruserS  ;  ; 

rewrite  (  specfile  )  5 


0 


with  s peer i lei  do 
begin 

nurno  fusers  :=  0 
pfactor  :=  0  ; 
q fact  or  :  = 
f i 1 Ichar 
f  i  1 Ichar 
f i 1 1  char 
f  i  1  1  char 
fill  char 
fill char 
fill  char 
fill char 
f 1 1 Ichar 
f 1 1 Ichar 
fill  char 
f 1 1 Ichar 
fill  char 


( vector  1 , si zeof ( vect or 1 >  ,  0 )  ; 

( vect or£, s i zeof ( vect or2 )  ,  0 )  ; 

(vectors, si zeof (vectors)  ,  0)  ; 

(vector^, 51 zeof (vector4)  ,  0)  ; 

(vectors, si zeof (vectors)  ,  0)  ; 

(vectors, sizeof (vectors)  ,  0)  ; 

( vect or 7, s i zeof (vect or 7)  ,  0)  ; 
(norravectorS,  sizeof  ( n o r rn vectors)  ,  0)  ; 

( norrnvect or  1 ,  s  1  zeof  ( normvect or  1  )  ,  0 )  ; 

( n  o  r  m  index,  s  i  z  3  o  f  ( n  o  r  rn  index  )  ,  0)  ; 

(alt ernat i ves,  5 1 zeof (alt erna t 1 ves )  ,  0 ) 
(alt  mat  r  i  x ,  s  1  z so f  ( a  1  fc  mat  r  i  x  )  ,  0 )  ; 


(grading, sizeof (grading! , 0 ) 


numoferitsria  :=  0 
nurnof  a  1 1  ernat  1  ves  : 
for  a  : =  i  to  S  d o 
begin 


solved CaJ  :=  false  ; 
final  index Ca]  :=  false 
final  index  1  Cal  :=  false 
end  ; 

completed  :=  false  ; 
cornpletedall  :=  false  ; 
ahp. status  :=  false  ; 


0 


ah  p .  n umo f t  r i es  :  = 

electre. status  :=  false  ; 
e  1  ect  re .  numo f  t  r  i  es  :  =  0  ; 

Fi 1 Ichar (electee. outranking, si zeof (elect re. outranking 
End  ; 

write  (  specfile  ,  specfilel  )  ; 

close  (  specfile  )  ; 

END  ; 

INCLUDE  FILE  UTILITIES 
PROCEDURE  DISKDflTfl  ; 

BEGIN 

receat 

window  (1,  1,  -i0,  12)  ? 

; ext  background  <  blue  )  ; 

clrscr  ; 

window  <41,1,30,12)  ; 

text  background  <  blue  )  ; 

clrscr  5 

window  <1,13,80,23)  ; 

t ext  background  <  14  )  ; 

c 1 rscr  ; 

window  <  1,24,80,25)  ; 

t ext  background  <  white  >  ; 

clrscr  ; 

text co lor  <  black.  )  ; 

gotoxy  <  2,1)  ; 

wr 1 1  e  <  stringl 28  )  ; 

got oxy ( 2, 2 )  ; 

write  (  ’  files  related  to  the  problem  '  ) 

window  <1,  1,40,  12)  ; 

t ext  background  <  olue  )  ; 

text co lor  <  white  )  ; 

gotoxy  <  2, 2)  ; 

write  <  ’  names  of  problems  :  ’  )  ; 

d  i  r 1 i st  a  ; 

window  <41,1,80,12)  ; 

text  background  <  blue  )  ; 

text co lor  <  white  )  ; 

gotoxy  <  2, 2)  ; 

write  (  ’  names  of  norm 


1  7< 


0) 


) 


dirl ist 


window  (1,13,80,23)  ; 

t ext  background  (  14  )  ; 

text co lor  <  black  )  ; 

gotoxy  (3,2)  ; 

write (’do  you  want  to  see  a  predefined  no 

XI  : =  56  ;  yl  :=2  ; 

identify  (  answer,  xl,  yl  )  ; 

if  answer  =  ’ y’  then 

beg  i  n 

xl  : =  3  ;  yl  : =  3  ; 
norrnse  1  ect  i  on  <  x  1 ,  y  1  )  ; 
displaynorrn  ; 
end  ; 

unt i 1  answer  =  ’ n’  ; 

clrscr  ; 

repeat 

window  (l,  i,  “0,  12:  ; 

text  background  :  blue  : 
clrscr  ; 

window  (41,1,80,12)  ; 

text  background  (  blue  ;  ; 

clrscr  ; 

window  (1,13, 80, 23 >  : 

t  ext  back  ground  1  •+ 

clrscr  ; 


window  (  1 , 2  4 , 90, 22  ; 

text  background  wn i t  a 
clrscr  ; 

text  co  1  or  b  1  ■»“  *  : 

3-:toxy  :,1  : 

write  1  st  ••  1 ..  : 

go  tor/  2.1  : 

write 

w  i  ndo w  1  , 
t  -?  <  K  n  • 

~3  ■'  4  * 

wr*  i  k.e  ’ 

3  :  r  1  ;  >  * 

w  l  *\  d  1 .  y*  *♦  ! 

t  e  y  t  t  - :  1  ■-  • 

q..  t  -  , 


rrn 


d  l  r  1 1  st  ; 

window  (1,13,30,23)  ; 

text  background  (  14  )  ; 

text co lor  (  black  )  ; 

gotoxy  (  3,  2)  ; 

writeC  do  you  want  to  see  a  predefined  problem 

XI  : =  56  ;  y 1  : =  2  ; 

identify  (  answer,  xl,  yl  )  ; 

if  answer  =  ’  y’  then 

begin 

gotoxy  (  3,  3)  ; 

repeat 

clreol  ; 

write  <  ’  name  of  problem  ?  ’  )  ; 

Read  (  answer  )  ; 

answer  :=  stupcase  (  answer  )  ; 

answer  :=  coneat  <  answer, 1  .  ’  ,  ’ Def’ )  ; 

until  <  exist  (  answer  ) ) ; 
prnatiie  :  =  answer  ; 
read prob 1 emf i 1  a  ; 

window  (1,1,30,7  )  ; 

t ext  background  (  blue  )  ; 

c  1  rscr  ; 

text col or  (white  )  ; 

gotoxy  (2,1)  ; 

write  (  ’name  of  problem  :  ’,  problem. Name 1  ) 

gotoxy  (  2, 2  )  ; 

write  (  ’ alternatives  s’); 

for  a  :=  1  to  problem. Numofalternat ives  do 

beg  i  n 

gotoxy  (  2, a+2  )  ; 

write  (  problem. fllternat ivesCal  )  ; 

end  ; 

window  (  1,3,30,25  )  ; 

t ext  background  (  blue  )  ; 

cl rscr  ; 

got  oxy  (2,1)  ; 

write  (  ’criteria  :  ’  )  ; 

display  (  problem  )  ; 

gotoxy  (  2,  17  )  ; 

text co lor  (  red  )  ; 

write  <  ’hit  any  key  to  continue  ’  )  ; 

read  (  kbd  , ch  )  ; 

text col or  (  white  )  ; 

end  ; 

until  answer  =  ’  n’  : 


( y  /  n ) 


PROCEDURE  DISKSTQTUS 


1 


BEGIN 

diskdata  ; 

END  ; 

PROCEDURE  REPP  1  ; 

BEGIN 

repeat 

gotoxy  <  2,  2)  ; 

cl reel  ; 

write  (’  the  name  of  the  problem  ?  ’ 

Read  (  answer  )  ; 

specnarne  :=  concat  (  answer,  Spc’  )  ; 

delete  <  answer  ,3,  length  (  answer)  )  ; 

orname  :  =  concat  (  answer, ’ . Def’  ) ; 
oroblname  :=  answer  : 
until  exist  (orname  )  ; 

END  ; 

PROCEDURE  REQD2  ; 

BEGIN 

repeat 

gotoxy  (  2,  4)  ; 

c 1 reo 1  ; 

write  (’  the  name  of  the  norm  ?  ’  )  ; 

Read  <  answer  )  ; 

delete  (  answer"  ,8,  length  (  answer)  )  ; 

answer  :=  stupcase  <  answer  )  ; 

normname  :=  concat  <  answer,  '  .  Gn’  ); 
until  exist  (normname  )  ; 

END  ; 

PROCEDURE  REPD3  : 

BEGIN 

got oxy  (  2,6  )  ; 

write  (  ’  your  name  ?  ’  )  ; 

Error  :=  false  ; 
repeat 

gotoxy  (  16,6)  ; 

c 1 reo 1  ; 

read  (  narnex  )  ; 

narnex  :=  stupcase  <  narnex  )  ; 

for  a  :=  1  to  norm. Nurnof users  do 
begin 

if  narnex  =  norm. UsersnamesCa]  then 
error  :=  true  ; 

end  ; 
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unt i 1  (  error  )  ; 

b  :  =  0  ; 

repeat 

b  :  =  b  +  1  ; 

until  (  narnex  =  norm.  UsersnawesCb]  )  ; 

st r  ( b, int e)  ; 

answer  :=  concat  <  ’  .  ’  ,  Narnex  )  ; 

pruser  :=  concat  (  probl name, answer)  ; 
pruser3  :=  concat  <  probl name, spc’ )  ; 

END  ; 


PROCEDURE  REPD4  ; 

BEGIN 

gotoxy  (  2, 3  )  ; 

write  (  ’  your  id  ?  ’  >  ; 

if  (  norm. Users idsCbl  =  ’  x’  )  than 

peg  i  n 

g otoxy  (  IS, 3)  : 

read  <  id:<)  ; 

ldx  :=  stupcase  <  idx  )  ; 

norm. Users ids Cb3  :=  idx  ; 
end 
else 
begin 
repeat 

gotoxy  <  1&,3)  ; 

c 1 reo  1  ; 

read  (idx  )  ; 

idx  :=  stupcase  (  idx  )  ; 

until  (  idx  =  norm.  Users  ids C b3  )  ; 

and  ; 

END  ; 


PROCEDURE  REPPS  ; 

BEGIN 

got  oxy  (  3,10  )  ; 

write  (’  the  method  that  you  want  to  use  ?  ’  )  ; 

Repeat 

gotoxy  (  49, 10)  ; 

c 1 reo 1  ; 

read  (met hod x  )  ? 

methodx  :=  stupcase  (  met hod x  )  ; 

until  (  (  methodx  =  1  ahp’  )  or  (  methodx  =  ' electre'  ) 
or  (  methodx  =  ’direct’ )  )  : 


PROCEDURE  DATA  ; 

BEGIN 

window ( 1 , 24,  80,  25)  ; 
text  background (wh ite)  ; 
text col or  <  black  )  ; 

gotoxy (  2,  1 )  ; 

clreol  ; 

write  (  string  128  )  ; 

gotoxy  <2, 2) ; 
write  (  stringl29  )  ; 
window  (  1,13,80,23)  ; 

t ext  background  (  14  )  ; 
clrscr  ; 
read  1  ; 

read2  ; 

readnorrnf  i  le  ; 
read3  ; 
re ad 4  ; 

END  ; 


INCLUDE  FILE  PROCED 


FUNCTION  STUPCflSE  (st  :  name  )  :  name  ? 

VflR 

I  :  integer  ; 

BEGIN 

for  I  :=  1  to  length <st)  do 

st C i  1  :=  upcase (st  til )  ; 

stu pease  :=  st  ; 

END  ; 


FUNCTION  EXIST  (filename  :  name  )  :  boolean  ; 

VflR 

f i 1  :  file  ; 

BEGIN 

assign  (  f i 1  ,  filename  )  ; 

-C  $  i  -  > 

reset  (  fil  )  ; 

-C<6i  +  > 

exist  :=  (  ioresult  =  0  )  ; 

END  ; 


PROCEDURE  UP IT  ; 

BEGIN 

got oxy ( 50, 24 ) ;  write (  ’hit  any  key  to  continue 
read ( kbd, ch ) 

FND  • 


PROCEDURE  CLEflRl  (  var  problem  :  easel  )  ; 

BEGIN 

for  a  :=1  to  5  do 

problem. Level  1  Cal  : =  1  ’ 

END  ; 

PROCEDURE  CLEflRSCREEN  (var  line  :  integer  )  ; 

BEGIN 

if  line  =  19  then 
begin 

gotoxy  (1,4)  ; 

for  e  :=  1  to  10  do 
del  1 ine  ; 

1 i ne  : =  9  ; 
end  ; 

END  ; 


level  )  ; 


PROCEDURE  CLEAR  (  var  matrixS  :  level  )  ; 

BEGIN 

for  line  :=  1  to  5  do 
beg  i  n 

for  a  :=  1  to  5  do 

mat r i x2 C 1 ine, al  :=  ’  ’ 

end 
END  ; 

PROCEDURE  CONVERT  (var  answers  :  ask  ;var  w,  dl  :  integer  ) 

BEGIN 

if  (  answer£Cw]  <>  ’  1’  )  and  (  answer£[w]  <>  ’S’  ) 

and  (  answerSCwl  <>  ’  3’  )  and  (  answerclCw]  <>  *4’  ) 

and  (  answer£Cw]  <>  ’  51  ) 


then 


dl  :=  0 
answers  C wl 
dl  :=  1  ; 


=  4  ; 


end  ; 

END  ; 

PROCEDURE  IDENTIFY  (  var  answer  :  name  ;  var  x 
integer  )  ;  BEGIN 

repeat 

gotoxy (x 1 , y 1 ) ; 

clreol  ; 

read  (  answer  )  ; 

answer  :=  stupcase  (  answer  )  ; 

unt i 1  (  (  answer  =  ’ y’ )  or  (  answer  =  ’ n’ )  )  ; 

END  ; 


PROCEDURE  CHECKNUMBER  (  var  answer  :  name  ; 

van  xl,yl,  limit  :  integer 
van  count 3  :  real  )  ; 

BEGIN 

repeat 

got oxy  (  x 1 , y 1 )  ; 

clneol  ; 

read  (  answer  )  ; 

val  (  answer, count3, codel )  ; 

until < (codel  =  0) and (counts  <=  limit)  and  (count 

END  ; 


PROCEDURE  S0RT1  (  var  norrnvectorl  :  vectorg  ; 

var  normvectorS  :  vectorn  ; 

var  numofcriteria  :  integer  ) 

BEGIN 

repeat 

count  :=  0  ; 

for  a  :=  i  to  numofcriteria  do 

beg  i  n 

if  normvector£[a]  (  normvector2Ca+l]  then 
begin 

exchanges Ca3  :=  normvector£Ca]  ; 
normvectorS Cal  :=  normvector£Ca+13  ; 
normvectorS  Ca+ 1 1  :  =  exchangee1  Ca]  ; 

exchangel Cal  :=  norrnvectorl Ca]  ; 
norrnvector  1  Ca3  :=  norrnvectorl  Ca+1]  ; 

norrnvectorl  Ca+1]  :=  exchangel  Cal  : 

count  : =  count  +  1  ; 

end  ; 
end  ; 

until  count  =  0  ; 

END  ; 


PROCEDURE  WRITENQRMFILE  ; 

BEGIN 

assign  (  norrnfile  ,  normname  )  ; 

reset  (  norrnfile  )  ; 

norma  : =  norm  ; 

write  (  norrnfile  ,  norma  )  ; 

close  (  norrnfile  )  ; 

END  ; 


PROCEDURE  WRITEPROBLEMFILE  ; 
BEGIN 

assign  (  problemfile  , 
reset  (  problemfile  )  ; 


prnarne  ) 


problems 

:=  problem  ; 

write  ( 

problem f i le, problems 

m 

close  ( 

END  ; 

problernfile  )  ; 

PROCEDURE 

REflDPROBLEMFILE  : 

BEGIN 

assign  <  problernfile  ,  prnarne  )  ; 

reset  <  problernfile  )  ; 

read  (  problernfile  ,  problems  )  ; 

problem  :  =  problerna  ; 
close  (  problernfile  )  ; 

END  ; 


PROCEDURE  RE£DNGRMF_TLE  ; 

BEGIN 

assign  t  normfile  ,  normnarne  ) 

reset  '  normfile  )  ; 

read  (  normfile  ,  norma  )  ; 

norm  : =  norma  ; 

close  (  normfile  )  ; 

END  ; 


to 

to 


& 

>.v 


PROCEDURE  REflDSQLUTIONFILE  ; 

BEGIN 

assign  (  solutionfile  ,  pruser  )  ; 

reset  <  solutionfile  )  ; 

read  <  solutionfile  ,  solutions  )  ; 

so 1 ut i on  : =  so 1 ut i ona  ; 

close  (  solutionfile  )  ; 

END  ; 


PROCEDURE  REflDSPECF I LE  ; 

BEGIN 

assign  (  specfile  ,  pruserS  ) 
reset  <  specfile  )  ; 

read  (  specfile  ,  specfilel  ) 
specfileE  : =  specfilel  ; 
close  <  specfile  )  ; 

END  ; 
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PROCEDURE  WRITESQLUTIQNFILE  : 

BEGIN 

assign  (  solutionfile  ,  pruser 
reset  (  solutionfile  )  ; 

so 1 ut i ona  : =  so  1 ut i on  ; 

write  (solutionfile,  solutiona  ) 

close  (  solutionfile  )  ; 

END  ; 


PROCEDURE  WRITE SPECFILE  i 

BEGIN 

assign  (  specfile  ,  pruser; 
reset  (  specfile  )  ; 

specfilel  :=  speefileE  ; 
write  (specfile, specf i lal  ) 
close  (  specfile  )  : 


APPENDIX  B 


FIGURES  OF  SCENARIO  1 


NAME  OF  THE  GROUP  NORM  ?  select  frigates 


1.  IDENTIFICATION  OF  GROUP  MEMBERS 

1. 1  Nu*ber  of  Group  Members  (  MAX  3  )  ?  3 

-  Naae  of  Member  #1  7  userl 

-  Naae  of  Member  #2  ?  user2 

-  Naw  of  Member  *  3  7  user3 

1.2  ID  of  Member  A1  7  xl 

2.  GROUP  DECISION  TECHNIQUES 

2.1  Weighted  Majority  Rule  : 

-  EQUAL  Weights  (Y/N)  ?  y 

2.2  Collective  Evaluation  Mode 
Choose  one  of  the  two  nodes  : 

(1)  Each  group  aeaber  Mill  evaluate  alternatives 
according  to  all  criteria 

(2)  Each  group  aeaber  Mill  evaluate  only  alternatives 
according  to  his  exclusive  area  of  expertise 

Enter  selection  ?  2 

The  naae  of  the  problem  7  ships 

-  Naae  of  user  for  criteria  WEAPONS  :  userl 

-  Naae  of  user  for  criteria  ELECTRONICS  :  user2 

-  Naae  of  user  for  criteria  ENGINE  :  user3 

-  Naae  of  user  for  criteria  ECONOMICAL  :  user3 

2.3  Autoaatic  Selection  of  Techniques  of 

Aggregation  of  Preference  (Y/N)  ?  y 

2.3  Automatic  Computation  of  NAI  (Y/N)  ?  y 

3.  INFORMATION  EXCHANGE 

3.1  Broadcasting  of  individual  outputs  (Y/N)  ?  y 

3.2  Permission  to  Modify  Individual  Analyses 

AFTER  Group  analyses  (Y/N)  ?  y 

3.2.1  Hom  Many  Tines  (MAX  10  )  7  9 

3.3  Tine  Limit  to  Submit  Individuals  Results  : 

3.3.1  Horn  Many  Days  (IWX  14  )  7  7 

3.3.2  Hours  (  1:00  to  24:00  )  7  13:00 


STEP  2  :  GROUP  NORM  DEFINITION 


NAME  OF  PROBLEM  :  SHIPS 


F igure 


ENTER  THE  ALTERNATIVES  i  1.  type  1 

2.  type  2 

3.  type  3 

4.  q 

ENTER  THE  CRITERIA  : 

1.  weapons 

1.1  air-crafts 

1.2  guns 

1.3  missiles 

1.3.1  ssn 

1.3.2  sain 

1.4  a/s  weaoons 

2.  electronics 

2. 1  radar 

2.1.1  surveillance 

2.1.2  fire  control 

2.1.3  navigation 

2.2  sonar 

3.  engine 

3. 1  performance 

3.2  waintance 

4.  cost  related 

4.1  technical  support 

4.2  life  cycle 

4.3  cost  of  operation 

4. 4  cost 

4.5  q 


STEP  1  :  MULTIPLE  CRITERIA  GROUP  PROBLEM  DEFINITION 
Definition  of  criteria  *  list  level  2)nd  level  3ind  level  3)uit 


5.  Step  1  Group  Problem  Definition 


igure  £  User  i  /  Problem  Initiation 


2/1 


RD-A168  443  CO  OP20  DISTRIBUTED  DECISION  SUPPORT  SVSTEH  FOR 
STRATEGIC  PLANNING(U)  NAVAL  POSTGRADUATE  SCHOOL 
HONTEREV  CA  S  CHRISTOS  NAR  86 


UNCLASSIFIED 


F/G  15/5 


NL 


PAIRWISE  COMPARISON 


PRIORITY  VECTOR 


AIR-C 

SUNS 

MISSI 

A/S  U 

AIR— C 

1.70 

1.20 

1.20 

AIR-CRAFTS 

0.3O7 

GUNS 

0.59 

0.56 

0.59 

GUNS 

0.181 

MISSI 

0.83 

1.88 

1.10 

MISSILES 

0.256 

A/S  U 

0.83 

1.78 

0.91 

A/S  WEAPONS 

0.256 

**  LAMDA  MAX  =  4.31 

CONSISTENCY  INDEX  =  3.30 
RANDOMIZED  INDEX  =0.90 
CONSISTENCY  RATIO  =  3.33 


AIR  MIS  A/S  GUN 
0.30  0.25  0.25  0.18 

DO  YOU  WANT  TO  MODIFY  THE  EVALUATION  OF  THE  CRITERIA  (Y/N)  ? 


STEP  3  :  PRIORITIZATION  OF  EVALUATION  CRITERIA 
Method  ;  AHP 


C-J  0) 


PRIORITY  VECTOR 


WEAPONS 

0.400 

ELECTRONICS 

0.400 

ENGINE 

0.130 

ECONOMICAL 

0.070 

WEA  ELE  ENG  ECO 
0.40  0.40  0.13  0.07 

DO  YOU  WANT  TO  MODIFY  THE  EVALUATION  OF  THE  CRITERIA  (Y/N)  ? 


STEP  3  :  PRIORITIZATION  OF  EVALUATION  CRITERIA 
Direct  input  of  criteria  weights 


Figure  10.  User  £  /  Prioritization  of  Evaluation  Criteria 

for  Level  1 
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■.  s 


i  gure 


! 

I 

l 


PRIORITY  VECTOR 


SURVEILLANCE  8.460 
FIRE  CONTROL  0.460 
NAVIGATION  6.206 


SUR  FIR  NAV 
0.40  0.40  0.20 

DO  YOU  WANT  TO  MODIFY  TIE  EVALUATION  OF  THE  CRITERIA  (Y/N)  ? 


STEP  3  s  PRIORITIZATION  OF  EVALUATION  CRITERIA 
Direct  input  of  criteria  weights 


12.  User  2  /  Prioritization  of  Evaluation  Criteria 
at  Level  3  for  Criteria  £.1.1  to  £.1.3 
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PRIORITY  VECTOR 

WEAPONS 

0.500 

ELECTRONICS 

0.350 

EN6TO 

0.100 

ECONOMICAL 

0.050 

□  □ 


UEA  ELE  ENG  ECO 
0.50  0.35  0.10  0.05 

DO  YOU  WANT  TO  MODIFY  TO  EVALUATION  OF  TO  CRITERIA  (Y/N)  ? 


STEP  3  :  PRIORITIZATION  OF  EVALUATION  CRITERIA 
Direct  input  of  criteria  Heights 


Figure  13.  User 


/  Pr ior it i zat ion  of  Evaluation  Criteria 
at  Level  1 


mmmmm 


PRIORITY  VECTOR 


TECHNICAL  SUPPORT  0.400 
LIFE  CYCLE  0. 100 
COST  OF  OPERATION  0.400 
COST  0. 100 


□  u  □ 


TEC  LIF  COS  COS 
0.40  0.10  0.40  0.10 

DO  YOU  WANT  TO  MODIFY  THE  EVALUATION  OF  THE  CRITERIA  (Y/N)  ? 


STEP  3  :  PRIORITIZATION  OF  EVALUATION  CRITERIA 
Direct  input  of  criteria  Heights 


Figure  15.  User  3 


/  Priorit i sat  ion  of  Evaluation  Criteria  at 
Level  £  for  Criteria  4. 1  To  4.4 


\  V  A’\'  V.VkV.V'.V^'.VO'V.W.  A  .V.V'A 


S  8 


THE  FINAL  CRITERIA  (  5)  AND  THEIR  HEIGHTS  ARE  : 

1.  SONAR 

0.32 

2.  AIR-CRAFTS 

0.22 

3.  A/S  WEAPONS 

0.19 

4.  MAINTANCE 

0.13 

5.  GUNS 

: 

I 

0.13 

DO  YOU  WANT  TO  CHANGE  THE  NUMBER  OF  THE  CRITERIA  (Y/N)  ? 

N 

STEP  3  :  PRIORITIZATION  OF  EVALUATION  CRITERIA 
Determine  the  nuaber  of  the  criteria 


t*  LfiMDA  MAX  =  3.00 

CONSISTENCY  INDEX  =  0.00 
RANDOMIZED  INDEX  =  0.58 
CONSISTENCY  RATIO  =0.00 


TYP1  TYPE  TYP3 
0.36  0.33  0.30 


DO  YOU  WANT  TO  MODIFY  THE  DATA  (Y/N)  ?  N 


STEP  4  :  INDIVIDUAL  EVALUATION  OF  ALTERNATIVES 

Evaluation  of  alternatives  According  to  Criterion  &3NAR  AHP 


ser  c.'  /  Evaluation  of  the  Alternatives  According 
:>  Criteria  Sonar  (AHP) 


-V-V-V-.rf~.eir 
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TYP3  1.20 
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II 
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CONSISTENCY  INDEX 
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RANDOMIZED  INDEX 
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CONSISTENCY  RATIO 

=  0.00 

TY1  TY2  TY3 

0.48  0.33  0.27  DO  YOU  WANT  TO  MODIFY  THE  DATA  (Y/N)  ? 


STEP  4  :  INDIVIDUAL  EVALUATION  OF  ALTERNATIVES 

Evaluation  of  Alternatives  According  to  Criterion  AIR-CRAFTS  AHP 
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TYPE 
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1.00 

TYPE  234 
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1.10 
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LAMM  MAX  =  3.-30 
CONSISTENCY  INDEX  =  -0.(30 
RANDOMIZED  INDEX  =0.50 
CONSISTENCY  RATIO  =  -0.00 


TYP  TYP  TYP 
0.34  0.34  0.31 


DO  YOU  WANT  TO  MODIFY  THE  DATA  (Y/N)  ? 


STEP  4  :  INDIVIDUAL  EVALUATION  OF  ALTERNATIVES 

Evaluation  of  Alternatives  According  to  criterion  GUNS  AHP 


Figure  20.  User  1  /  Evaluation  of  Alternatives  (According  t 
Criteria  Guns  ((AHP) 
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ft  TERN. EVALUATION  :  WORKING  AREA 


PRIORITY  VECTOR 


TYP1  TYPE  TYP3 
SON  6.80  8.00  7.80 
AIR 
A/S 
MAI 
GUN 


TYPl 

0.29 

TYPE 

0.38 

TYP3 

8.33 

TYP1  TYPE  TYP3 

8.  E9  0.38  0.33  Do  you  want  to  aodify  the  weights  (Y/N)  ? 


STEP  4  :  INDIVIDUAL  EVALUATION  OF  ALTERNATIVES 
Direct  input 


Figure  21.  User  2  /  Evaluation  of  alternatives  According  t 
Criterion  Sonar  (DIRECT) 
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STEP  4  :  INDIVIDUAL  EVALUATION  OF  ALTERNATIVES 
Direct  input 


FINAL  SOLUTION 

n  n  n 

1 

1 

t 

!_l  J  L_ 

TYP1  TYP2-  YP3 

0.33  0.32  0.34 

HIT  ANY  KEY  TO  CONTINUE 

STEP  6  :  COMPUTATION  OF  6R0UP  DECISION 
Final  Result  (  AHP  )  -  Specializes  sode 


APPENDIX  C 


FIGURES  FOR  SCENARIO 


NAME  OF  TIC  GROUP  NORM  ?  selectl 

1.  IDENTIFICATION  OF  GROUP  NEWERS 

1.1  Nuaber  of  Group  Headers  (  MAX  3  ) 

?  3 

-  Naae  of  Menber  •  1 

?  userl 

-  Nw  of  Header  •  2 

?  user2 

-  Naae  of  Menber  •  3 

?  user3 

1.2  ID  of  Menber  USER1 

?  xl 

2.  GROUP  DECISION  TECWIOJES 

2.1  Weighted  Majority  Rule  : 

I 

-  EQUAL  Weights  (Y/N) 

?  n 

-  WEIGHT  for  USER1 

?  3 

-  HEIGHT  for  LISER2 

?  3 

-  HEIGHT  for  USER3 

?  A 

2.2  Collective  Evaluation  Node 

-  Choose  one  of  the  folloaing  nodes  : 

1  <1>  Each  group  aeaber  Mill  evaluate  alternatives 

according  to  all  criteria 

(2)  Each  group  aeaber  Mill  evaluate  only  criteria  j 

according  to  his  exclusive  area  of  his  expertise  | 

Enter  a  nuaber  ?  1 

2.3  Autoaatic  Selection  of  Techniques  of 

Aggregation  of  Preference  (Y/N) 

?  y 

2. A  Autoaatic  Coaputation  of  NAI  (Y/N) 

?  y 

3.  INFORMATION  EXCHANGE 

3. 1  Broadcasting  of  individual  outputs  (Y/N) 

?  y 

3.2  Peraission  to  Modify  Individual  Analyses 

AFTER  Srouo  analyses  (Y/N) 

’  y 

3.2.1  Hom  Many  Tiaes  (MAX  10  ) 

?  A 

3.3  Tiae  Liait  to  Subait  Individuals  Results  : 

3.3.1  Hom  Many  Days  (MAX  1A  ) 

?  7 

3.3.2  Hours  (  1:00  to  2A;00  ) 

?  12:00 

_ i 

STEP  2  :  GROUP  NORM  DEFINITION 

_  1 

Figure  £4.  Group  Norm  Definition 
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NAME  OF  PROBLEM  :  SHIPS 
ENTER  TIC  ALTERNATIVES 


ENTER  THE  CRITERIA 
1.  weapons 
electronics 
engine 

4.  cost  related 

5.  q 


1.  type  1 

2.  type  2 

3.  type  3 

4.  q 


STEP  1  ;  MULTIPLE  CRITERIA  SROUP  PROBLEM  DEFINITION 
jOefinition  of  criteria  *  list  level  2)nd  level  3)nd  level  QJuit 


SHIPS.  D 
SELECT. 


NORMSH.GN 
SELECT  l.GN 


THE  MANE  OF  THE  PROBLEM  ?  select 

THE  NAME  OF  THE  NORM  ?  select  1 

YOUR  NAME  ?  user! 

YOUR  ID  ?  xl 

THE  METHOD  THAT  YOU  WANT  TO  USE  ? 

aho 

STEP  3  :  PRIORITIZATION  OF  EVALUATION  CRITERIA 
Identification  of  the  proble*  Methods  :  AHP  or  DIRECT 


Fig  ure 


User  1  /  Problem  Initiation 
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COST  RELATED 

0.167 
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WEA  ELE  ENG  COS 
0.32  0.32  0.20  0.17 

DO  YOU  WANT  TO  MODIFY  THE  EVALUATION  OF  THE  CRITERIA  (Y/Nl  ? 


STEP  3  :  PRIORITIZATION  OF  EVALUATION  CRITERIA 
Method  :  AW 
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l 
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1.  WEAPONS 
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i 
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1 

1 

i 

1.  DEFINE  TIC  NUMBER  OF  TIC  CRITERIA  THAT  YOU  WANT  TO  USE 

2.  DEFINE  THE  SUN  <  %  )  THAT  YOU  WISH 

METHOD  THAT  YOU  WISH  (1  OR  2) 

? 

STEP  3  s  PRIORITIZATION  OF  EVALUATION  CRITERIA 

Deteriine  the  nueber  of  the  criteria 

F i  gar© 


User  1  /  Final  Weights  of  Evaluation  Criteria 
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j 

1 

DO  YOU  WANT  TO  CHANGE  THE  NUMBER  OF  THE  CRITERIA  (Y/N)  ? 

n 

STEP  3  s  PRIORITIZATION  OF  EVALUATION  CRITERIA 

Determine  the  mmber  of  the  criteria 

_ i 

A? 


ALTERN. EVALUATION  :  WORKING  AREA  PRIORITY  VECTOR 
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0.32 
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0.32 

ENG 
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TYPE  3 

0.36 

TYP  TYP  TYP 

8.32  0.32  0.36  Do  you  want  to  eodify  the  weights  (Y/N) 


STEP  4  :  INDIVIDUAL  EVALUATION  OF  ALTERNATIVES 
Method  used  :  Direct  Input 
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— II — II — 

1  1 

UUL 

TYP  TYP  TYP 

0.34  0.33  0.33 

HIT  ANY  KEY  TO  CONTINUE 

STEP  4  :  INDIVIDUAL  EVALUATION  OF  ALTERNATIVES 
[Final  Result 


<!»? 


ALTERN 
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STEP  4  :  EVALUATION  OF  ALTERNATIVES 
Method  used  :  ELECTRE 
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User  1  /  Evaluation  of  Alternatives  Using  tlectr 
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H 
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OUTRAGING  MATRIX 

**  An  Outranking  relation  *  is  the  i 
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4 
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STEP  4  ;  EVALUATION  OF  ALTERNATIVES 
Method  used  :  ELECTRE 
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34.  User£  /  Individual  Evaluation  of  Alternatives  Using 
Direct  Mode 
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FINAL  SOLUTION 


TYP  TYP  TYP 
0.35  0.34  0.33 

HIT  ANY  KEY  TO  CONTINUE 


STEP  4  :  INDIVIDUAL  EVALUATION  OF  ALTERNATIVES 
Final  Result 
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4.  MODIFY  THRESHOLDS 

5.  EXIT  ELECTRE 
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* 
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HIT  ANY  KEY  TO  CONTINUE 

STEP  4 

:  EVALUATION  OF  ALTERNATIVES 

Method  used 

s  ELECTRE 

37.  User  2.  /  Concordance,  Discordance,  Outranking  Matrix 


ALTERN. EVALUATION  :  WORKING  AREA 
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PRIORITY  VECTOR 
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Do  you  want  to  wodify  the  weights  (Y/N)  ? 


STEP  4  :  INDIVIDUAL  EVALUATION  OF  ALTERNATIVES 
Method  used  :  Direct  input 
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/  Individual  Evaluation  of  Alternatives  Using 
Direct  Mode 
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HIT  ANY  KEY  TO  CONTINUE 

STEP  4  :  INDIVIDUAL  EVALUATION  OF  ALTERNATIVES 
Final  Result 
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HIT  ANY  KEY  TO  CONTINUE 

STEP  *  :  INDIVIDUAL  EVALUATION  OF  ALTERNATIVES  j 

Method  used  :  ELECTRE  J 

Figure  41 


ALT.  CARDINAL  RANKINGS 
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GROUP  RESULTS 
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HIT  ANY  KEY  TO  CONTINUE 


STEP  5  s  COMPUTATION  OF  GROUP  DECISION 
All  the  solutions  have  conputed  with  AHP 


Figure  4£. 


Group  Solution  of  the  Problem 
(Solved  with  Direct  Mode) 
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GROUP  RESULTS 
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HIT  ANY  KEY  TO  CONTINUE 

STEP  3  :  CONPUTATION  OF  GROUP  DECISION 

All  the  solutions  have  computed  with  ELECTRE 
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